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ABSTRACT 

Data General's FORTRAN IV RunTime Library is an im- 
plementation of the ANSI FORTRAN standard X3. 9- 
1966, with many extensions. The primary extension 
is that all run time routines are reentrant. Routines 
in the library permit integer, single and double preci- 
sion real, and single and double precision complex 
arithmetic and transcendental functions. String and 
b3/te handling, array manipulation, and I/O conversion 
routines are also provided. 

Also provided in the Run Time Library is a set of real 
time routines, which permit the writing of multitask 
real time (RT) FORTRAN IV programs. 

Techniques are given for interfacing the reentrant, re- 
locatable library code with assembly language programs. 
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FORTRAN RUN TIME LIBRARY 

USER'S MANUAL 

INTRODUCTION 

The purpose of this manual is to provide FORTRAN and assembly language pro- 
grammers with information about the Data General FORTRAN IV Run Time Libraries. 
Users should familiarize themselves with DGC publications 093-000053 "FORTRAN 
IV USER'S MANUAL, " 093-000017 "ASSEMBLER, " 093-000040 "EXTENDED 
ASSEMBLER, " and 093-000039 "RELOCATABLE LOADER. " 

RUN TIME LIBRARY STRUCTURE 

All subroutines in the DGC FORTRAN Run Time Library (hereafter called "the 
library") possess certain common features. The primary identifying feature is 
their reentrant nature. They are also relocatable- most entry points to these 
routines are in page zero memory. This reentrant, relocatable nature makes 
the routines suitable for use in Time -Sharing environments, as well as in assembly 
language programs and in FORTRAN object programs. 

Primarily because of the difference in the assembly of . SYSTM calls, different 
revisions of the Run Time Library must be used depending upon the operating 
system supporting the main program. Programs supporte . ^ »-c.: the Stand- 
Alone Operating System (SOS) or the Disk Operating System (DOS), must use the 
DOS Run Time Library package. Programs supported by either the Real Time Disk 
Operating System (RDOS) or the non-disk Real Time Operating System (RTOS) 
must use the RDOS Run Time Library package. 

Descriptions of routines in the main section of this manual, Chapter 2 "Integer Routines' 
through Chapter 13 "Array Handling Routines, " are common to all operating system 
types except where noted. Multitask real-time routines, required by programs run 
with a real time operating system, and all routines peculiar to the RDOS FORTRAN IV 
library, are detailed in Appendix E. 

Fixed Point Numbers 

Fixed point numbers (integers) are represented by 16-bit words. Bit contains 
the sign (0 if positive, 1 if negative). Bits 1 through 15 express the magnitude 
of the number in two's complement notation. All fixed point numbers are regarded 
as integers by library routines. The range of values that may be expressed by 
fixed point numbers is -(2l5-i) to +2l5-i, or -32,767io ^o 32,767jq (the fixed 
point number 100000 is an illegal signed number since attempting to obtain its 
two's complement returns the same number). Zero must be expressed by an all 
zero word. 
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Fixed Point Numbers (Continued) 




Real Numbers 

Real numbers may be either single or double precision, and each precision may 
be in packed or unpacked form. Numbers on the number stack are always un- 
packed. Numbers elsewhere are usually in packed form. 

Single precision floating point numbers (SPFL) in packed format occupy two 
sequential sixteen bit words. Packed SPFL numbers are expressed as a sign, 
a binary fractional mantissa 24]^q bits long and an exponent to the base 16 to which 
is added an offset of lOOg (excess 64 notation). Decimal exponents of values from 
16"^'* through 16+63 ^j-e represented as through 111^. Negative numbers are 
formed by setting the sign bit of the positive representation of the number to a 1. 
Thus +25.O10 becomes 041031, 000000 and -25.0io becomes 141031,000000 . 



+25^Q-3l3= 



bit 



9 ^'^ 




.-^ ^ 1 _ > , . . 1 


"• lix juneuL --r^ "ivianLLSsa »-i 


.0628*162= [T 


1 1 


1 0|0|0 l|l|0|Oll 


bit 


1 15 


l"^ IVICUILXOOCL — 9-\ 





0|0|0|0 0|0 0|0|0 0|0 0| 
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Packed Single Precision Real Format 

Zero is represented as two sequential all zero words, but any SPFL number input 
to a routine with an all zero mantissa is considered zero. An SPFL number is 
considered normalized if at least one binary 1 is found in the first four positions of 
the mantissa (bits positions 8 through 11 inclusive). All SPFL numbers input to 
the library routines must be normalized. The range of values of an SPFL number 
are 2.4 * lO'^S to 7.2 * 10^5 -^^^ significance in excess of 6 decimal digits. 

Double precision floating point real numbers (DPFL) in packed form occupy four 
sequential 16 bit words. The first word allocates bit positions for the sign, ex- 
ponent, and most significant portion of the mantissa as does a packed SPFL number. 
The remaining words express the rest of the mantissa. Rules for normalization 
and expressing negative numbers and zero are the same as for SPFL numbers. 
The range of alues is identical to the range for SPFL numbers, 2.4*10"'78 to 
7.2*10^5, with significance in excess of 16 decimal digits. 
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Real Numbers (Continued) 



SigiT^ 

I I Exponent \ Mantissa 



Mantissa 



Mantissa 



Mantissa 



Double Precision Real Representation 
Complex Numbers 

Single precision complex numbers in packed format are composed of two sequential 
packed SPFL numbers, the first expressing the real portion of the number and the 
second expressing the imaginary portion of the complex quantity. Four sequential 
memory locations are required, and the bit definitions, range and significance 
which apply to SPFL numbers apply also to the real and imaginary portions of single 
precision complex numbers. 

Si^TV 
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Precision Complex Representation 





Double precision complex numbers in packed format consist of two sequential DPFL 
numbers. The first expresses the real portion of the number and the second ex- 
presses the imaginary portion. Eight sequential locations are required, and the 
bit definitions, range and significance figures which apply to DPFL numbers apply 
also to the real and imaginary portions of double precision complex numbers. 

Byte Manipulation 

Bytes and byte pointers used in the run time library are identical to bytes and 
pointers discussed in "How To Use the Nova Computers, " with one exception: 
bit 15 is set to zero if the left byte is pointed to , and bit 15 is set to a 1 of the 
right byte is pointed to. Thus, to insure that packing occurs left to right, the 
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Byte Manipulation (Continued) 

pseudo-op ". TXTM 1" should be included in any source program which generates 
ASCII text messages. 



Address of two packed bytes 



1=R 
0=L 



bit 15 

Byte Pbinter 



STACK STRUCTURE AND LINKAGE 

The following discussion details the structure of the various run time stacks 
and the means used to access variables on these stacks in a single task FOR- 
TRAN environment. Single task FORTRAN includes both DGC stand-alone 
FORTRAN, DOS -supported FORTRAN, and RDOS single -task FORTRAN. For 
a description of stack structure and the partitioning of the run time stack area 
in multitask real time FORTRAN, see Appendix E. 

SP Stack 

The SP stack is a block of sequential locations with a page zero pointer, SP, 
used for general purpose temporary storage by subroutines which have no run 
time stacks. The SP stack is used primarily by the single and double precision 
routines. The following example shows how it might be used to save and then 
restore ACl: 

STA 1,@SP 
ISZ SP 



DSZ SP 

LDA 1,@SP 

SP stack overflow is a fatal error undetected by the library routines. 
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Number Stack 



rhe Number Stack is a block of locations reserved for the storage of numeric 
values either as input or output for the arithmetic routines, or for temporary 
computational storage by these routines. The default size of this stack is 630 
octal locations, although this size may be redefined by the user at assembly 
time by means of the following statements: 



. ENT . FLSZ 

.FLSZ = n 



where n represents an absolute integer expression that can be evaluated at 
assembly time. 

The maximum length of the number stack will then be equal to 2 * n + 30 . 
(These two statements might be included in the FORTRAN source program,^ with 
an A in column one, so that they will be passed on to the assembler directly, 
see the FORTRAN IV User's Manual, Chapter 1.) 

The entire storage of the number stack is seldom used. Instead the number 
stack expands dynamically as numbers are loaded onto it and contracts as they 
are removed. It never exceeds its maximum allotted area however. This 
stack is built in the direction of increasing addresses. The end of the number 
stack is pointed to by . NDSP; NSP (also called FLSP) points to the beginning 
of the most recently loaded number on the stack, the current top of the stack. 

All numbers on the number stack are stored in sequential six word frames (or 
multiples of six word frames); this format is called unpacked format, and is 
shown in the following illustrations. Any attempt to load a number onto an 
already filled number stack will cause overflow error message FENSO to be 
issued. No such check or message is issued for number stack underflow, an 
attempt to load a number below the first frame on the number stack. 



1-5 



Number Stack (continued) 





Wordl 
Word 2 
Words 
Word 4 
Word 5 
Word 6 



I Two's Complement Exponent + lOOJ" 



jMSB 



MANTISSA 



i[ 



MANTISSA 



15^ /Sign 

0** Positive 



Exponent to Base 16 



D 



LSB 



Unpacked SPFL Number Map 



Word 1 
Word 2 
Word 3 
Word 4 
Word 5 
Word 6 







[ 



I Two's Complement Exponent + 100^ 



MSB 



CC 



MANTISSA 



MANTISSA 



MANTISSA 



MANTISSA 



15^ Sign 

0o Positive 



Exponent to Base 16 



D 



i) 



LSB 



Unpacked DPFL Number Map 



An integer to be loaded onto the number stack is first converted to an unpacked 
SPFL number. Single precision complex numbers are composed of two sequential 
unpacked SPFL numbers; the first (topmost) SPFL number represents the imaginary 
portion, and the next SPFL number represents the real portion of the complex 
number. Similarly, unpacked double precision complex numbers are composed of two 
sequential unpacked DPFL numbers. 

In the following illustration of the number stack broken arrows denote noncurrent 
values of NSP. 
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Operand 3, just 
removed (popped) 
from stack. 



Operand 1, top 
of stack. 



Operand 2, next 
to top. 



0P3 Mantissa (0P3M) 



0P3 Exponent (0P3X) 



0P3 Sign (0P3S) 



OPl Mantissa (OPIM) 



QPl Exponent (QPIX) 



OPl Sign (OPIS) 



0P2 Mantissa (0P2M) 



0P2 Exponent (OP2X) 



0P2 Sign (QP2S) 



.NDSP 



end of number 
stack 



NSP 



NSP 



mcreasing 
addresses 



NSP 



Number Stack Map 
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FORTRAN Linkage Stack 

FORTRAN Linkage Stack frames are variable length blocks of sequential locations 
allocated for use by the main program and each nan time subroutine requiring 
temporary storage. Each FORTRAN frame is composed of an initial 11 octal word 
header, and most routines require a varying length series of temporary locations 
following each header. 

Run Time Stack 



Header 



Temporaries 



Header 



Temporaries 



Header 



Temporaries 



increasmg 
addresses 



FORTRAN Stack frame A 



FORTRAN Stack frame B 



FORTRAN Stack frame C 



Each header location is used to store a specific tj^je of information pertaining to 
the subroutine which owns it, and each header location is at a fixed displacement 
from a pointer called the current FSP. PARF, the FORTRAN parameter tape, 
defines FSP to be stored in cell 16g, and also defines the fixed displacements and 
mnemonic assignments of each location in the stack header. The following illustra- 
tion names these displacements and shows what information they contain. 
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FORTRAN Linkage Stack (Continued) 

address 
FSP=cell 16 



contents 



; 003000 = current contents of FSP 



Stack 
Header 



200g NREL 
locations 



^cell 2577 is the last temporary location of the previous stack frame, 
cell 2600 FLGT ; Length of variable portion of this stack, 

1 in this example, 
cell 2601 FOSP ;01d FSP 

cell 2602 FPLP ;Unused 



cell 2603 FEAD 
cell 2604 FCRY 



;F,ntrv addreo« *''^ *''t^ iqc?*- vz-vufipf^ -^niij-,^ u.. 

this routine. 
; State of carry at the time this routine issues 

a subroutine call. Bit 15 = 0*-^ carry was 0. 
;Contents of AC0 when this routine issues 

a subroutine call. 
;Contents of ACl when this routine issues a 

subroutine call. 
jContents of AC2 when this routine issues a 

subroutine call. 
;Address of next sequential instruction when 

the routine issues a subroutine call. 
;Temporary storage available for use by this 

routine. 

(cell 2612 will be the FLGT of the FORTRAN stack frame belonging to 
the subroutine called by this routine. ) 



cell 2605 FAC0 

cell 2606 FACl 

cell 2607 FAC2 

k. cell 2610 FRTN 



Temporary cell 2611 FTSTR 

or TMP 



cell 3000 FSP 



;Contents might be anything. 



FORTRAN STACK 
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There is a page zero pointer, called QSP, which may reside anywhere from 20 through 
3773, that points to FAC2. This is the location where AC2 will be stored should the 
current routine call out, and it tracks FSP by an offset of -171g. This pointer is 
used for immediate temporary storage by the FORTRAN linkage subroutines. For 
example STA 2,@QSP frees AC2 while STA 2,@FSP is not acceptable. QSP is defined as 
an external displacement in . I, the run time initializer. 

Following FRTN is the series of temporary locations used for general purpose storage. 
The first of these is called FTSTR or TMP. The calling routine's accumulators, 
carry and return addresses are always recoverable from its stack header at locations 
FCRY through FRTN. FPLP is not currently used by the library routines. 

In reality, the stack mnemonics are negative displacements which are added to the 
indexable center (FSP) of the current stack to obtain the effective address locations 
used for header and temporary storage. For simplicity's sake, we refer to FLGT . . . 
FTSTR as though they were the effective addresses themselves. Similarly, we refer 
to the current FSP and QSP, by which we really mean the current contents of cells 
FSP and QSP. These mnemonics are defined in the PARF parameter tape, a portion 
of which is listed below. 



FSP 


= 


USP (USP is predefined in the assembled to be 163. ) 


FRTN 


= 


-170 


FAC2 


= 


-171 


FACl 


= 


-172 


FACO 


= 


-173 


FCRY 


= 


-174 


FEAD 


= 


-175 


FPLP 


= 


-176 


FOSP 


= 


-177 


FLGT 


= 


-200 


FTSTR 


= 


-167 


TMP 


= 


FTSTR 


FZD 


= 


-200 



The area occupied by the FORTRAN stack frames, called the Run Time Stack, expands 
and contracts dynamically with the execution of the main program, expanding when 
more nests of subroutines are called or as subroutines are called which demand temp- 
orary storage. As the Run Time Stack expands, any FORTRAN stacks created earlier 
for subroutines already executed are overwritten by the new stacks. Stack overflow 
is said to occur if more storage area than the memory available at run time is de- 
manded; AFSE is a page zero word used to determine the end or uppermost memory 
location available for the entire Run Time stack. It is declared as an entry by the 
library. 
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Main Program 



call 



Subroutine D 



-call 



Subroutine E 
etc. 



^ 



lower addresses 



higher addresses 



Run Time Stack 



Stack D 



Stack E 



etc. 



lower addresses 



higher addresses 



Stack Creation for Nested Subroutines 
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In every case, upon subroutine entry AC2 will then be set to contain a pointer to 
the calling program's stack frame (the old FSP) and ACS will contain a pointer to 
the called routine's stack frame (new FSP) if one has been allocated, or -1 if 
no frame has been allocated. Upon return to the caller, carry and all registers 
except ACS will be restoredtotheir original values. ACS will contain the caller's 
FSP. 

Inter-Subroutine Linkage, FLINK 

The library contains a set of subroutines called the FLINK module which enables 
the calling of other library routines and performs all stack frame creation/deletion 
and maintenance functions required. FLINK forms the nucleus of the run time 
subroutine's communications facility. 

Library routines, including FLINK, have two types of entry points: page zero (. ZREL) 
or normally relocatable (. NREL) locations outside page zero. Those with . ZREL 
entries must be specified in an . EXTD statement, while those with , NREL entries 
require . EXTN statements. The following lists the mnemonic entries of the FLINK 
subroutines: 



.EXTN .EXTD 

FCALL (JSR @. FCALL) . FCALL 

FRCAL 

FSAV (JMP @. FSAV) . FSAV 

FRET (JSR @. FRET) . FRET 

FQRET 

In reality, FRCAL and FQRET have page zero entries too, but these have not been 
entered with a . ENT statement and are not available for programming use. 

The following table highlights the purpose of each FLINTC subroutine. 

FCALL (or JSR @. FCALL) 



FRCAL 



FSAV (or JMP @. FSAV) 



FRET (or JSR @. FRET) 



FQRET 



Used to call a library routine by its .NREL 
entry point. Also performs FSAV functions. 

Used to call a library routine with its . NREL 
entry contained in AC2. Also performs 
FSAV functions. 

Used to maintain the caller's header, allocate 
a frame for the called subroutine, and update 
FSP. 

Used to return control to the caller, restore 
the caller's registers and carry, and update FSP. 

Provide a quick return to a caller when the 
called subroutine has no stack frame; restore 
the caller's registers and carry. 
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FSAV and an integer stack length word must immediately precede any subroutine 

which has a oaere zero entrv nninf. tHp mpt-hnH nf <-oiiir.rr o,,^v. ^ ^^..<.j :„ ton /a a T-^n 

where .ADR represents the page zero address containing the entry point (less two): 



.ZREL 
• SBR: SBR-2 

.NREL 

tnacrf^ "ra-rn r'QlI\ TCD (?i\ CDO 



FSAV 
n 
SBR: True beginning of the subroutine 



FRET (or FQRET) 

The Stack Length word, SLW, labeled n in the illustration, may take on positive 
integral values or -1. If the SLW is equal to -1, no stack header nor any 
temporary storage locations will be allocated for the called subroutine, hi addition, 
no further calls can be made from the called routine. Subroutines which have a 
-1 SLW use the FLINK subroutine FQRET for exit and return to the next sequential 
address following the origmal subroutine call unless the user modifies FRTN. 
Subroutines with a -1 SLW typically provide quicker call and return to the caller, 
„„. — „,^ w^w^^j.wxi ^j. ,.l.,.a.±l.l.^.^^±lax±\,^^ uj. a oLdi^jv xuj. Liic ^-tiiicu aujjiuucinfc; IB rcquireo. 

If the SLW is either zero or a positive integer, a new stack frame is created for 
the called subroutine, and the subroutine FRET must be used to provide a return 
of program control to the caller. If the SLW is 0, a "bare bones" stack consisting 
of only a stack header is created; this would provide for the storage and restoral 
of the values in accumulators AC0 through ACS and the state of carry should this 
subroutine make a call to another routine. 

If the SLW is a positive integer, then a stack is created with both a header and the 
specified number of temporary storage locations. 

Whenever one subroutine with a stack allocated for itself calls another subroutine 
with a stack, the contents of AC0 through AC2, carry, and the return address of the 
call are stored on the caller's stack, ACS is set to the FSP value of the stack 
belonging to the new, called subroutine and AC2 is set to the FSP of the caller's 
stack. Should the called subroutine have no stack allocated for itself, AC2 is 
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set to the caller's FSP but ACS is left free for general purpose use. 

If a subroutine in the library has no page zero entry, FCALL (also part of 
FLINK) may be used to perform the subroutine call, and the form of the call is: 

FCALL 
SBR 

where SBR represents the . NREL entry point to the routine. Subroutines called 
by FCALL need not be preceded by FSAV since FCALL performs the functions 
of FSAV, although such subroutines must be preceded by a stack length word. 
Subroutines which have normal entry points in page zero can also be called by 
means of FCALL to the . NREL entry point. (Note that this type of call requires 
2 words as opposed to 1 word. ) 

The FLINK module contains one other subroutine which permits the calling of a 
subroutine by its . NREL entry point: FRCAL. Subroutines called by means of 
FRCAL must have their entry points preceded by appropriate SLWs and as with 
FCALL, no FSAV is needed preceding the SLW. FRCAL is not followed by the 
name of the subroutine to be called; instead, AC2 is set to the address of the 
subroutine to be called, and then the instruction FRCAL is issued. FRCAL 
accomplishes the same functions as FCALL. 

FORTRAN Addressing 

The placing of current FSP values in ACS, and next-to-most-recent values of FSP 
in AC2 by FLINK permits an addressing scheme called FORTRAN Addressing, 
which is used by the library and the FORTRAN Compiler. 

FORTRAN addressing extends the NOVA family addressing scheme in two ways: 

1. Variables on the stack are referenced relative to that stack's FSP. 

2. Full word addressing for all absolute addresses is effected by subroutines 
. LD0 and . ST0. 

Since NOVA family computers can address 256io words in an indexed instruction, 
using a bias of -200 through 1-177 each address on the stack can be referenced 
by using the centerpoint, FSP, and an offset stack displacement. Indirect stack 
displacements are also generated for dummy arguments of a function or a subroutine. 
Stack addresses are encoded as being between and S778 inclusive, or as between 
IOOOOO3 and 100S778 (the address of a variable, not the variable itself). FORTRAN 
addresses, when referring to locations on a frame, are equal to the displacement 
relative to FSP minus FZD (=-200). Thus the FORTRAN address of FLGT (=-200, see 
PARF) is equal to 0, since FLGT - FZD = -200 - (-200) = 0. Using similar 
reasoning, all direct FORTRAN stack addresses are positive, with a range of through 
377 inclusive. 
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FORTRAN STACK FRAME 



FORTRAN address 
FORTRAN address 1 
FORTRAN address 2 
FORTRAN address 3 
FORTRAN address 4 



FORTRAN address 200 




FSP 



FORTRAN addresses greater than 377 are treated as absolute .NREL addresses. 
The chart on the following page Illustrates the decisions made by library routines 
in interpreting FORTRAN addresses. 



1-15 



FORTRAN Address 



01 



7,8 



15 



Given a FORTRAN Address, FADR 
to resolve 




FADR + (current FSP) = 200 is the 
partially resolved address, ADR 




ADR is resolved 
absolute address 



Yes 



(ADR) — FADR 



Since the most recent FSP is always placed in ACS by the linkage routines (FLINK), 
any of 377 locations on a frame can be address in such instructions as: 

LDA 0, -167, 3 

which is equivalent to 
LDA 0, TMP, 3 
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As indicated earlier, stack frames may have lengths exceeding 377 locations. If 
frames exceed 377 locations, variations on the FORTRAN addressing scheme must 
be employed, possibly by placing pointers to new index values in the frame so that 
all locations may be accessed: 

Jumbo Frame 



FSP- 



new index 



Header 



new index 



377 locations 



FORTRAN array handling presents another means of accessing locations on a stack 
(see Appendix D). 

The following illustrations give examples of FORTRAN addressing applications. 

To adjust a caller's FRTN (without using further linkage routines which will be 
discussed), the following method might be employed: 

FCALL 

NAME 

Parameter 

Next Sequential Instruction 



NAME: 



Stack Length Word 
LDA 0, @FRTN, 2 
ISZ FRTN, 2 



; Parameter — ► AC0 

; Return can now be made to 

;the NSI 



FRET 
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One of the duties of FSAV is to preserve a caller's registers upon issuance of a 
further call. In order to do this, a register must be freed. The following example 
shows how FSAV's use of QSP accomplishes this end. 



TEMP: 
FSAV: 



FSAV: 



.ZREL 






.BLK 




1 




.NREL 






STA 


2, 


TEMP 




LDA 


2. 


FSP 




STA 


0, 


FAC0, 


2 


STA 


1, 


FACl, 


2 


STA 


3, 


FRTN, 


2 


LDA 


0, 


TMP 




STA 


0, 


FAC2, 


2 


STA 


2. 


@QSP 




T,nA 


2, 


FSP 




STA 


0, 


FAC0, 


2 


STA 


1, 


FACl, 


2 


STA 


3, 


FRTN, 


2 



Without Using QSP 



Using QSP 



QSP may also be used for temporary storage by a routine provided it is not being 
so used when a call out is made to a subroutine by means of FLINK. 

JSR NAME 

Next Sequential Instruction 



STA 3, @QSP 



LDA 3, FSP 

JMP @FAC2, 3 

In spite of the fact that FUNK restores the original values of a caller's registers, 
it is possible to pass results to a caller in one of the free registers. The following 
example illustrates one possible method. 




1-18 



FCALL 

NAME 



SLW 



NAME: 



LDA 
LDA 
STA 
FRET 



3,FSP 

2, FOSP, 3 

1, FAC0, 2 



;The result is returned in 
;the caller's AC0. 



Similarly, conditional return can be provided by altering the caller's FRTN: 



FCALL 

NAME 

Return if condition 1 satisfied 

Return if condition 2 satisfied 



SLW 



NAME: 



LDA 

SUB 

ISZ 



2, FOSP, 3 
0, 1, SZR 
FRTN, 2 



; Condition 2 satisfied? 
;Yes 



Library Conversion of Fortran Addresses to Absolute Addresses 

Several library routines are available for transforming FORTRAN addresses into 
absolute addresses: FRG0/FRG1, MAD/MADO, FRGLD, CPYARG/CPYLS, and 
FARG. In addition to performing effective address calculation, FRGLD loads the 
contents of this address in AC0. CPYARG/CPYLS and FARG transfer effective 
addresses to the caller's stack. FRG0 computes the effective address of a stack frame 
displacement with respect to the current FSP, virhile FRGl performs this calculation 
with respect to the next most current FSP. 
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FRG0 operation 



User Routine A 

-JSR B 
FORTRAN ADDRESS of argument 




>B: 
Address of 

FORTRAN ADDRESS ^AC2 
-JSR @. FRG0 „_ 



return to A 



■^ effective address of argument — AC0- 



Routine A's stack 
frame 



argument 



Sxibroutine B must not specify a stack frame. 

FRGLD computes the effective address of an argument stored at a FORTRAN 
ADDRESS, and then loads the contents of that address; AC0 receives the argu- 
ment. If the address is a stack frame displacement, it must be a displacement 
on the next -most-recently created frame. FRGLD calls FRGl to resolve the 
effective address of the argument. 

The MAD/MADO module also computes effective addresses from FORTRAN 
ADDRESSES. If the address exceeds 3778, then it is resolved as either an 
absolute NREL address or as an indirect address needing further resolution as 
shown on page 1-15. If the address is from to 377q inclusive, the address 
is a stack frame displacement. The question "Which stack frame?" is answered 
by the entry which was selected to this module. If MAD entry, then the caller's 
stack frame is meant and the current FSP is used as a base for the address 
calculation. The resulting effective address is returned in AC2. The MAD/ 
MADO module itself has no stack frame, and does not restore the accumulators 
or carry to their entry values when return is made to the caller. 
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Passing Arguments from the Caller 

There are two subroutines availahip in t-hp lih-rarv fn-r r-panUrinrr T7nPTP AM 

ADDRESSES passed by a caller and storing them on the stack frame of called 
subroutine B: FARG and CPYARG/CPYLS. FARG is used to pass argument 
addresses to the stack frame of the called subroutine without restoring 
caller B's accumulators and state of carry upon return to B. 

CPYARG/CPYLS performs the same function, but restoring the original contents 
of accumulators and state of carry upon return to caller B. The only difference 
^w..„v-wxx v^i iiiivvj a.iiu v^i j.j_,o ucD 111 mc uaiuuig aequences wnicn eacn accepts. 



Routine A 
■Call Subroutine B 

n 
FADDRl 
FADDR2 
etc. 
Next Sequential Instruction 



^Subroutine B 
Call CPYLS 



CPYLS 
Operations 



CPYLS resolves effective addresses 

^of Subroutine A's calling parameters, 

places these on Subroutine B's stack. 

Updates Subroutine A's FRTN to NSI. 



STACK A 



FRTN: NSI 

FADDRl 

FADDR2 



STACK B 



effective address 


FADDRl 


effective address 


FADDR2 


etc. 
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Returning Results to the Caller 

The order of a calling sequence generated by the FORTRAN statement CALL SUB2 
(Pj. . . P ) is as follows: 

JSR @.FCALL 

SUB2 

n 

FORTRAN ADDRESS of Parameter 1 



FORTRAN ADDRESS of Parameter n 
Next Sequential Instruction 

The called subroutine, SUB2, must fetch the FORTRAN ADDRESSES of each of the 
parameters, perform its function on the parameters, and return the result it has 
obtained back to the caller at the FORTRAN ADDRESS of the result (which may be 
one of the parameters). This it can do by first calling CPYARG (or CPYLS), 
using the effective addresses it has received, and then by returning the result 
to the caller's stack. 

One way of returning this result is to load it into an accumulator and then store it: 

STA @0, TMP, 3 

where ACS contains the current (i.e, SUB2's) FSP. Assuming parameter 1 is 
the result address, TMP would contain the effective address of SUBl's Result, 
since the list of addresses of SUBl's parameters were transferred in order onto 
SLTB2's stack. The effective address of the Result was transferred to SLtB2's 
FORTRAN address TMP, the effective address of the second parameter was 
transferred to SUB2's TMP + 1, and so on by CPYARG. Often in assembly 
language programs it will be helpful to assign mnemonics to the displacements of the 
temporary storage locations following TMP, especially in cases where many of 
these storage locations are being used. 

Stack Allocation at Run Time 

Before the main FORTRAN program may be run, there must be an initial allocation 
of the primordial stacks, pointers to unlabeled common must be set up and the 
FORTRAN Channel Assignment Table must be set up to define the relationships 
between actual device drivers and logical FORTRAN channels. This whole complex 
task of initialization is performed by single task . I at the beginning of run time. 
(Multitask . I, found in library FMT. LB, is discussed in Appendix E. ) 
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Stack Allocation at Run Time (Continued) 

Single task . I is a subroutine from the first library file, consisting of 134 octal 
. NREL locations. .1 also allocates a stack for itself, 60 octal locations plus header, 
where the Channel Assignment Table is placed. . I is called by the operating system 
(either the Stand-Alone or Disk Operating Systems) at the beginning of Run Time. At 
the end of the successful running of the FORTRAN program, return will be made to 
. I which transfers control unconditionally to the STOP routine. STOP outputs the 
message "STOP 999" to the system output device, and returns control to the oper- 
ating system. 

A system call is issued at the start, . SYSI, which initializes system I/O (this call 
is a no-op to DOS and RDOS). Then 40 octal locations are allocated for the SP stack 
immediately following the last loaded run time subroutine; a pointer to the beginning 
of the SP stack is also created^ 

Immediately following the last location in the SP stack, the number stack is defined 
and is allocated if floating point arithmetic is used in .MAIN or any of its subpro- 
grams. This stack will be 630 octal words long, or 30 octal plus twice whatever value 
a user has specified in a . FLSZ statement. The default value sets aside enough 
storage for 68 single precision complex numbers, or 17 double Drecision complex 
numbers. 

After allocating the number stack (or after allocating the SP stack if no number stack 
is called for), a pointer to the beginning of the run time stack is defined, and . I's 
stack is allocated here. .MAIN'S stack frame will be created, as soon as transfer 
is made to . MAIN . 

Before this happens, a check is made to see whether or not there is enough room for 
blank common allocation, and blank common is allocated at the high end of memory 
if there is room enough for both it and the stacks which have been allocated. If not, 
a memory overflow message will be output and the system will wait for operator 
intervention. Assuming there is enough room, . NMAX is updated to acknowledge the 
stack allocations by means of a system call, . MEMI. The Channel Assignment 
Table is initialized and deposited in .I's temporary stack area, and program control 
is given to . MAIN. 

The fact that no memory overflow is detected by . 1 in no way implies that there will 
be enough core space for all stack allocations which will be nec3ssary at the peak 
requests of run time. Instead, a stack overflow check is made by the FLINK module 
each time a stack allocation request is issued, and a stack overflow error message 
is issued if insufficient space is detected. The following illustration depicts a 
typical map of memory during the execution of . MAIN. A simplified version of . I 
is given in Appendix B which illustrates the elements of . I as they might be used in an 
assembly language program. A FSE .referenced in both versions of . I, is a pointer 
used to determine whether stack overflow has occurred. 
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Top of Memory 




top of memory 




DOS 


^- 


if DOS environment 
top of memory 


AFSE-167 


BLANK COMMON 


if SOS environment 




»- 




^ 


t 






etc. 






second called subroutine stack 


Run Time Stack 




first called subroutine stack 


Area 




. MAIN STACK 




.NDSP 


. 1 STACK (CAT) 


> 


End of Number Stack 


NSP* 


NUMBER STACK 


;> 6308 








SP 


SP STACK 


408 




lOOOg 
M408 

4008 

508 
47 

16 
15 



e 
stack. 


.MAIN 
and all its subroutines 




USER STATUS TABLE AREA 






. ZREL Pointers, Displacements 






Spare Programming Area 


-*- 


— 


— QSP 




DOS/SOS 
Page Zero 




~~-FSP 


*NSP moves 
towards NDSP 
as numbers ai 
loaded on the i 


Bottom of Memory 




* start of . MAIN 
in SOS environment. 



MEMORY MAP OF .MAIN AT RUN TIME 
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USING THE RUN TIME LIBRARY 
Structure of Subroutine Descriptions 

Each subroutine description is subdivided into the following categories: Title, 
Purpose, Calling Sequence(s), Subroutine Size (and Timing), Supporting Routines 
(and Displacements), and Notes to User. 

The "Title" is a name selected to describe the subroutine (or subroutines) being 
discussed. Usually these correspond to loader- recognized titles. A list of loader- 
recognized titles is given in the Summary Table in Appendix A. 

The "Purpose" section is followed by "Calling Sequence" which illustrates the 
subroutine entry point, input parameters, and output result. Requisite inputs and 
output results are enclosed in, parentheses. In most cases where alternate entry points 
or alternate entry means (like FCALL and JSR @ entries) are possible, the TSR@ 
entry will usually be given in the calling sequence, with the FCALL entry point listed 
in the "Notes to User. " 

The section titled "Subroutine Size" gives the octal number of locations required in 
both page zero and in the remainder of core meniory for this subroutine (or set 
of subroutines if this subroutine is part of a load module). The figures do not include 
the storage requirements of any auxiliary subroutines requi-ed and c^Med by this 
routine for support. Subroutmes with the same Loader Title in the Summary Table 
share common coding in a load module. Thus, if either one or all of the subroutines 
in a module are loaded, the core storage requirements for tiiese subroutines are the 
same and are equal to the size given for any of the subroutines in the module. 

Selected subroutines have been measured to determine their typical execution times, 
and these are given in "Subroutine Size and Timing. " The following comparisons 
of typical execution times of single precision real arithmetic functions run on the 
SUPERNOVA are given to illustrate the advantage obtained by using the hardware 
fixed point multiply/ divide option. 

Single Precision Real Typical Execution Time Using Typical Execution Times With 
Subroutine Software Multiply/Divide Hardware Multiply/Divide 

SIN 3.3 ms 2.0 ms 

COS 3.0 ms 1.9 ms 

TAN 4.2 ms 2.5 ms 

ATAN 3.6 ms 2.2 ms 

EXP 4. 9 ms 2.9 ms 

LN 3.7 ms 2.4 ms 

TANH 6.3 ms 4.2 ms 

SQRT 2.9 ms 1.7 ms 

ALOGIO 4.1ms 2.6 ms 

ATAN2 5.3 ms 3.4 ms 

SAMPLE SUPERNOVA EXECUTION TIMES 
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The following chart compares the typical execution times of the NOVA, NOVA 1200, 
and NOVA 800. The NOVA 1200 and NOVA 800 figures are given both with and 
without the use of the integer hardware multiply/divide option. 



Double Precision 
Real Subroutine 


NOVA with software 
multiply, divide 


NOVA 1200 with 
software multi- 
ply, divide//with 
hardware multi- 
ply, divide 


NOVA 800 with 
software multi- 
ply, divide//with 
hardware multi- 
ply, divide 


FAD2*# 


1.3 ms 


. 55 ms//. 55 ms 


.35 ms//.35 ms 


FSB*# 


1.4 ms 


. 55 ms//. 55 ms 


, 35 ms//. 35 ms 


FML2* 


5.7 ms 


2.2 ms//1.2 ms 


1.2 ms//. 7 ms 


FDV2* 


11.4 ms 


4.3 ms//2.0 ms 


2.3 ms//1.4 ms 


DPWER 


180 ms 


69 ms//37 ms 


39 ms//25 ms 


RIPWR 


3 ms 


2.5 ms//l. 5 ms 


1.5 ms//1.0 ms 


* includes time required for two floating load operations and one floating store 
operation. 

# the integer multiply/ divide routine is not used by this routine. 



Ihus to estimate the execution times for the NOVA 800 or NOVA 1200 with or without 
the integer hardware multiply/divide option, a series of conversion constants can be 
derived. The following series of conversion constants can be used to estimate the execu- 
tion times of FORTRAN run time routines for which the execution time on the NOVA is 
already given, "With" means "with the hardware integer multiply/divide hardware, " 
and "without" means "without the hardware. " 



NOVA 800 without: NOVA 800 with 



as 



NOVA 1200 without: NOVA 1200 with as 



NOVA without: NOVA 1200 without: as 



NOVA without: NOVA 800 without as 



1 


.66 


1 


.55 


1 


.40 


1 


.25 
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External SllbronflneR. nnint-prs. anH flao-a fminH ^1coixrfiAt*o in i-K^i MU-^rv-^Tr r^rUi^U «,,«««,^ 

each routine are indicated by the category "Supporting Routines. " External normals 
will be listed to the left of the semicolon, external displacements to the right. 

Note that displacements defined on the PARF and PARU tapes are not listed in this 
section. Consequently, it Is good programming practice to always assemble these 
tapes with any user written subroutines. 

"Notes to User" specifies whether error messages can be generated, and whether 
the contents of accumulators and the state of carry are restored to their entry 
values upon exit from this routine. The statement that accumulators and carry are 
restored should be understood to be qualified because AC3 is always set to contain 
the current FSP and AC2 the next most current FSP upon subroutine entry. Upon 
return AC2 is the caller's original AC2. Moreover, error messages may be 
issued by subroutines supporting a main routine which, itself, is incapable of issuing 
such m.essages. 

Finally, subroutine descriptions are arranged alphabetically by title within each 
of twelve categories. The list and order of appearance of these categories is 
as follows: 

Integer 

Single Precision Real 

Double Precision Real 

Single Precision Complex 

Double Precision Complex 

Mixed Mode 

String/Byte Manipulation 

Pointers/Displacements 

Stack Linkage, Initialization 

Input/Output 

Miscellaneous Fortran Support 

Array Handlers 

Interfacing Assembly Language Routines to FORTRAN Programs 

If it is desired to write a function or subroutine in assembly language which will 
be called by a FORTRAN program, or which call FORTRAN programs or sub- 
programs, several points must be borne in mind: 

1. First 5 letters in name must be unique and distinct from library defined entries. 

2. Include the statement . ENT name. 

3. Select a unique title (. TITL title). 
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The code generated by the FORTRAN statement CALL NAME (x,y,z) is as follows: 

. EXTN NAME 
JSR @. FCAL 

NAME 

n -Where n represents the number of arguments 

FORTRAN ADDRESS of x 
FORTRAN ADDRESS of y 
FORTRAN ADDRESS of z 

All externals which are to be resolved in the displacement field of an instruction 
at load time are specified by . EXTD. Examples of these are page zero entries 
and page zero flags. All other externals (FCALL entries, primarily) are specified 
by . EXTN. 

The lower case n in the above calling sequence represents an integer equal to the 
number of parameters in the calling sequence. The . FCAL routine saves accumulators, 
carry and the current FSF, and allocates a stack frame for the called subprogram. 
The statement . EXTN NAME need appear only once in a program. 

The converse of the calling sequence generated by the FORTRAN CALL statement 
is the receiving sequence. This is the means by which the calling parameters are 
fetched by the called subroutine. The form of the receiving sequence generated 
by the use of the FORTRAN statement SUBROUTINE is as foUows: 

FS 
NAME: JSR @.CPYL 



FS in the above illustration is the number of temporary locations required by the 
subroutine NAME in the FORTRAN stack. FS must be large enough to provide for 
the maximum number of arguments expected by the routine. . CPYL converts the 
n argument address to effective addresses and places these addresses in locations TMP, 
TMP +1, ... TMP -tn-1 on its FORTRAN stack. Even if no arguments are passed, 
. CPYL is still called to correct the contents of FRTN so that program control will 
return to the next sequential FORTRAN statement. 

Lastly, the assembly language code generated by the FORTRAN RETURN statement 
is JSR @. FRET, called FRET earlier. As mentioned earlier, FRET restores 
accumulators, carry , the contents of FSP, and places the current FSP in AC3. 

Appendix C lists two library routines and a sample program which calls routines from 
the library to illustrate the linkage principles discussed above. 
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To call a FORTRAN subroutine or function in an assembly level program, care 

» ~»- ^^..w^wiv^>,v. i.^^ tioouj.^ i^ioi, «xj.guiiit:ij.i.o (jaoocu nj tiic sujjpi. u^xctiii aglet: in 

number, order and type with the arguments required by the subprogram. Given 
the following FORTRAN subroutine statements, 



SUBROUTINE name (argi, arg2, ..., arg^) 

the assennbly language code required to call this subroutine would be: 

.EXTN name 
- FCALL 
name 

N _ 

FORTRAN ADDRESS 1 "^ 
FORTRAN ADDRESS 2 



FORTRAN ADDRESS n 

— J 



Argument Addresses 



In like fashion, given the following FORTRAN function, 

FUNCTION name (argj, arg2, . . . arg^) 
The assembly language code required to call this function would be: 



FCALL 

name 

N + 1 

FORTRAN ADDRESS of result 

FORTRAN ADDRESS 1 "^ 

FORTRAN ADDRESS 2 



FORTRAN ADDRESS n 



Argument Addresses 



If the argument list is empty in either a subroutine or function definition, N=0 
must be specified explicitly. 

Finally, if any text strings are to be passed to FORTRAN routines, the first 
must be preceded by a statement to force the storing of text in left to right order: 
.TXTM 1. 
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INTEGER ROUTINES 

BASC 2-3 

BDASC 2-4 

lABS 2-5 

IDIM 2-6 

IPWER , , . 2-7 

tSIGN . . . . . . . . .... ...... ... .... ...... 2-8 

MAX0, MIN0 2-9 

MOD 2-10 

MPY, MPY0, DVD (hardware) 2-11 

MPY, MPY0, DVD (software) 2-13 

SDVD 2-14 

SMPY 2-15 



2-1 



BASC 



Tn i-.e n e y» 



Purpose: 
Calling Sequence : 



Supporting Routines: 
Subroutine Size: 

Notes to User: 



To convert an unsigned fixed point number to an ASCII string 
of six octal digits converted to ASCII. 

(AC0 contains the Byte Pointer to the returned string. 
ACl contains the number to be converted. ) 

FCALL 
.BASC 

(Leading zeroes are not suppressed; string is terminated 
with a null byte, AC(8 contains updated pointer to null 
byte.) 

FSAV, FRET; .STBT . 

35 octal locations of normally relocatable memory are 
required. 

The input fixed point number is of the following form, 
with N representing an octal digit: 

N6N5N4N3N2N1 

The output ASCII string is in the following form, where 
Aj^ corresponds to Nn: 

A6A5 
A4A3 

A2A1 


No error messages are output. 

Contents of accumulators, carry are restored. 

. BASC must be specified with an . EXTN statement. 
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Integer 



BDASC 



PuiT)Ose : 
Calling Sequence : 



Supporting Routines : 
Subroutine Size : 

Notes to User: 



To convert an unsigned fixed point number to a string 
of ASCII decimal characters. 

(AC0 contains the output string pointer. ACl contains 
the number which is to be converted. ) 

FCALL 
. BDASC 

(Leading zeroes are suppressed; string is terminated with 
a null byte. AC0 contains the updated pointer to 
the null byte. ) 

FSAV, FRET; .STBT . 

62 octal locations of normally relocatable memory are 
required. 

No error messages are generated. 

Contents of accumulators, carry are restored. 

. BDASC must be specified with an . EXTN statement. 
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mtegev 



jABS 

Purpose : 
Calling Sequence; 



Supporting Routines : 
Subroutine Size : 

Notes to User: 



To compute the absolute value of an integer argument. 

JSR @1A. S 

FORTRAN ADDRESS of result ; A NON-NEGATIVE INTEGER. 

FORTRAN ADDRESS of argument ;ANY INTEGER 

(The location containing the result will be expressed as 
a FORTRAN ADDRESS immediately following the call). 

FRET, FSAV; CPYARG . 

One page zero location and 11 octal locations of normally 
relocatable memory. 

Original states of accumulators, carry restored upon exit. 

No error messages are generated. 

lA. S must be referenced by an . EXTD statement. 

This routine has an FCALL entry point, . lABS . 
. lABS must be referenced by an . EXTN statement. 
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Integer 



IDIM 

Purpose: 
Calling Sequence : 



Supporting Routines : 
Subroutine Size : 

Notes to User: 



To compute the positive difference of two integers I and J. 

JSR @ID. M 

FORTRAN ADDRESS of result 
FORTRAN ADDRESS of I 
FORTRAN ADDRESS of J 

(If I"J* 0» the result is 0; otherwise, the result is the 
difference I- J ). 

FSAV, FRET; , FARG . 

One page zero location and 13 octal locations of normally 
relocatable memory. 

Original contents of accumulators and carry are restored. 

No error messages are generated. 

ID. M must be referenced by an . EXTD statement. 

This routine has an FCALL entry point, . IDIM . 
. IDIM must be referenced by an . EXTN statement. 
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Integer 



IPWER 

Purpose : 
Calling Sequence : 



Supporting Routines: 
Subroutine Size : 

Notes to User: 



To raise an integer to an integer power, with an integer 
result. 

(The integral base is in ACl, and the integral power is in 
AC0) 

JSR @. IPWR 

(The result is deposited in ACl). 

MPY; SP, . RTFS . 

One page zero location and 53 octal locations of normally 
relocatable memory. 

Original states of accumulators and carry are lost. 

If overflow occurs, or if a zero base was input to the routine, 
an error message is issued. 

. IPWR must be referenced bv an . EXTD statement- 
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Jn linger 



ISIGN 

Purpose : 
Calling Sequence : 



Supporting Routines : 
Subroutine Size : 

Notes to User: 



To transfer the sign of one integer to another integer. 

JSR @ IS.GN 

FORTRAN ADDRESS of result 

FORTRAN ADDRESS of integer receiving the sign 

FORTRAN ADDRESS of integer whose sign is being transferred. 

FRET, FSAV; . FARG . 

One page zero location and 14 octal locations of normally 
relocatable memory. 

Original states of accumulators, carry are restored. 

No error messages are generated. 

IS. GN must be referenced by an . EXTD statement. 

This routine has an FCALL entry point, . ISIGN . 
. ISIGN must be referenced by an . EXTN statement. 
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MAX0, MIN0 



Purpose : 



P.fll liner Sf>ni ion r>o • 



Integer 



To select the smallest (MIN0) or the largest (MAX0) member 
from a set of integers, expressing the selection as an integer. 



TCD triW f k rk 

JUXY \5SlVl/\. JO 



/ f^-K K-w ei\ 



N (an integer constant specifying the number of members 

+1 in the set of integers. ) 
FORTRAN ADDRESS of result 
FORTRAN ADDRESS of Iq 
FORTRAN ADDRESS of li 



Supporting Routines: 
Subroutine Size: 

NntPR tn I Toot" 



FORTRAN ADDRESS of l^_^ 

(The integer result is stored at the FORTRAN ADDRESS 
immediately following N. ) 

FRET, FSAV; . FARG . 

Two page zero locations and 44 octal locations of normally 
relocatable memory. 

Accumulators, carry are restored upon exit. No error 
messages are generated. 

FCALL entry points are MIN0 and MAX0. 

MAX0 and MIN0 must be referenced by an . EXTN statement. 
MA. and Ml. must be referenced by an . EXTD statement. 
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In teger 



MOD 



Purpose : 
Calling Sequence : 



Supporting Routines : 
Subroutine Size: 

Notes to User: 



To fetch the remainder of an integer quotient when integer 
Ij is divided by integer I2. 

JSR @M0. 

FORTRAN ADDRESS of result 

FORTRAN ADDRESS of integer Ij 

FORTRAN ADDRESS of integer I2 

(The location of the result is expressed as a FORTRAN 

ADDRESS immediately following the call. ) 

FSAV, FRET; .FARC, . SDVD . 

One page zero location and 1 1 octal words of normally 
relocatable memojry. 

In the case of an illegal division, an error return will be 
made by . SDVD, and a zero result will be returned. 

Original contents of accumulators, cari^ will be restored 
upon exit. 

MO. must be referenced by an . EXTD statement. This 
routine has the FCALL entry point . MOD . 
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MPY, DVD, MPY0 



Integer 



Purpose : 



/-l^lli c 



To enable the use of the unsigned hardware multiply/divide 
option on a NOVA family computer and restore FSP upon exit. 



\j\K^i ana FiXJl contain the multiplier and multiplicand 
upon input to the routine; contents of AC0 will be added to 
the product. ) 

MPY 

(The product of ACl and AC2 is computed, and the entry 
contents of AC0 is added to the product. This sum is 
returned with the more significant half in AC0, the less 
significant half in ACl. ACS contains the caller's FSP 
upon exit. ) 



(ACl and AC2 contain the multiplier and multiplicand 
upon entry. ) 

MPY0 

(The product of ACl and AC2 is returned with the less 
significant half in ACl, and the more significant half in 
AC0. ACS contains the caller's FSP upon exit. ) 



Supporting Routine: 
Subroutine Size: 



(The high and low parts of the dividend are in AC0 and 
ACl, the divisor is in AC2. ) 

DVD 

(The remainder is in AC0, the quotient is in ACl, AC2 
is unchanged, and carry is clearea; ACS is set to FSP. 
Upon overflow, carry is set, FSP is placed in ACS, and 
return is made with the accumulators unchanged. ) 



.SV0 . 

Three page zero locations, SI octal locations of normally 
relocatable memory for NMPYD ; 3 page zero locations 
and 15 locations of normally relocatable memory for HMPYD 
(see Notes to User). 
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Integer 



UPY, DVD, MPY0 (Continued) 



Notes to User: 



Tape NMPYD (099-000011) must be loaded at link load 
time for the NOVA. For the NOVA 1200, 800 and 
SUPERNOVAS, load tape HMPYD (099-000009). 



MPY, MPY0, and DVD must each be specified in a . EXTN 
statement. 
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Integer 



MPY, MPY0, DVD 
Purpose ; 

Calling Sequences : 

Supporting Routine: 

Subroutine Size 
and Timing: 



Notes to User: 



To perform unsigned integer multiplication and division 
on NOVA family machines lacking the hardware multiply/ 
divide. 

Same as for machines with the hardware multiply/divide 
option. (See page 2-11) 

.SV0 . 

Three page zero locations and 33 octal locations of norm- 
ally relocatable memory. 

Typical execution times for MPY0 are: 

74 ps on the Supernova and 349 ^s on the Nova. 

Typical execution times for MPY are: 

73 ps on the Supernova and 343 ;is on the Nova . 

Tjrpical execution times for DVD are: 

96 JUS on the Supernova and 491 >is on the Nova. 

Taoe MULT. ^n99-nnnnn8\. mnot w^ ir>QHori f^.^ o^ft^.,-,^^ 
multiply/divide on all NOVA family machines. 

MPY, MPY0, DVD must each be specified in an . EXTN 
statement. 
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Integei- 



SDVD 



f*urpose : 
Calling Sequence : 



Supporting Routines 



To perform a division of two signed integers. 

(AC0 contains the signed divisor, ACl contains the 
signed dividend. ) 

JSR @.SDVD 

(AC0 contains the signed remainder, ACl the signed quotient. ) 

DVD; . RETS, SP. ■ 



Subroutine Size: 



Notes to User: 



One page zero location and 46 octal locations of normally 
relocatable memory. 

Division by zero or input value 2 will cause an error 
message to be issued, with a zero quotient and remainder. 

Original states of accumulators and carry will be 
preserved except as noted. 

. SDVD must be referenced by an . EXTD statement. 
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SMPY 



Integer 



Purpose: 
Calling Sequence : 



Supporting Routines ; 
Subroutine Size: 
Notes To User: 



To perform a multiplication of two signed integers. 

(AC0 contains the signed multiplicand, ACl contains the 
signed multiplier) 

JSR @.SMPY 

(ACl contains the signed result; the result is if overflow 
occurs. ) 

MPY; .RTES, SP . 



One page zero location and 24 octal locations of normally 
relocatable memory. 

Original contents of accumulators and carry are preserved 
except as noted. An error message is output if overflow 
occurs. 

. SMPY must be referenced by an . EXTD statement. 
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SINGLE PRECISION FLOATING POINT ROUTINES 

ABS 3-3 

AINT 3-4 

ALOG 3-5 

AL.G0 3-6 

AMAXl, AMINl 3-7 

AMOD 3-8 

ATAN, ATAN2 3-9 

COS 3-11 

DIM 3-12 

EXP 3-13 

EXPC 3-14 

FADl, FSBl 3-15 

FCLTl, FCLEl, FCEQl, FCGEl, FCGTl 3-16 

FFLDl, FFSTl 3-17 

FMLl, FDVl 3-19 

FNEGl 3-20 

FPWER 3-21 

FSGNl 3-22 

PLYl 3-23 

RATNl 3-24 

SIGN 3-25 

SIN 3-26 

SINH 3-27 

SQRT 3-28 

TAN 3-29 

TANH 3-30 
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ABS 

Purpose : 
Calling Sequence: 



To compute the absolute value of any real number. 
(The number whose absolute value is to be calculated is 

JSR @.ABS 

(The absolute value of the original number is on top of 
the number stack. ) 



Supporting Routine: 
Subroutine Size: 

Notes to User: 



FSAV, FQRET ; NSP . 

One page zero location and 6 locations of normally relocatable 
memory. 

Accumulators, carry are restored upon exit. No error 
messages are generated. 

ABS. , XAS. , and DABS. , are each equivalent to JSR @. ABS . 

. ABS must be referenced by an . EXTD statement. ABS. , 

XAS. , and DABS, must each be referenced bv an . EXTN statement. 

This routine has an FCALL entry point, ABS . ABS must 
be referenced by an . EXTN statement. 



3-3 




AINT 

Purpose : 
Calling Sequence : 



Supporting Routines 
Subroutine Size: 
Notes to User: 



To truncate a single precision real number. 

JSR @AI. T 

FORTRAN ADDRESS of number to be truncated. 

(The truncated real is placed on the number stack. ) 

none; . FRG0, FFLDl, NSP, SP . 

One page zero location and 60 octal locations of normally 
relocatable memory. 

Accumulators, carry are not restored upon exit from this 
routine. No error messages are generated. 

JSR @XA. T is equivalent to JSR @AI. T . 

XA. T and AI. T must each be referenced by an . EXTD statement. 
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ALOG 




Purpose : 



Calling Sequence : 



Supporting Routines ; 



Subroutine Size: 



Notes to User: 



To compute the siagle precision real natural logarithm 
of a single precision real positive argument x. 

(Input argument x is placed on tiie top of tlie number stack) 

ALCX3. 
(Output result replaces x on the top of the number stack. ) 

FSAV, FRET;.RTER, . FARG, FSBl, FADl, FMLl, 

FLIPl, FDVl, FFLDl, FPLYl, FCLEl, FXFLl, NSP , FRLDl . 

Two page zero locations and 205 octal locations of normally 
relocatable memory are required. 

The single precision real base 10 logarithm function has an 
alternate entry point in this routine (see AL. G0). 

ALOG. must be referenced by an . EX IN statement. 

In the case of a zero argument, an error message is 
given and the largest possible real number is returned 



In the case of a negative argument, an error message is 
given and the logarithm of the absolute value of the argument 
is computed. 

Accumulators and carry are restored upon exit from this 
routine. 

This routine has an FCALL entry point, ALG. ALG must 
be referenced by an . EXTN statement. 
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AL.G0 

Purpose : 
Calling Sequence : 

Supporting Routines ; 
Subroutine Size and Timing : 



Notes to User • 



To compute the single precision real base 10 
logarithm of a single precision real argument x. 

JSR @AL.G0 

FORTRAN ADDRESS of x 

(Output result isplacedon the top of the number stack. ) 

FSAV, FRET;.RTER, . FARG, FSBl, FADl, FMLl, FXFLl, 
FDVl, FPLYl, FFLDl, FCLEl, FLIPl, FRLDl, NSP . 

Two page zero locations and 205 octal locations 
of normally relocatable memory are required. 

T3q)ical execution times are 17 ms for the NOVA with 
software multiply/divide and 2. 6 ms for the SUPERNOVA 
with hardware fixed point multiply/divide. 

The single precision real natural logarithm function, 
ALOG. , has an alternate entry point in this routine. 

AL. G0 must be referenced by an . EXTD statement. 

Accumulators and carry are restored upon exit 
from this routine. This routine has the FCALL 
entry point . A LG 1 0. 
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AMAXl, AMINl 




Purpose: 



Calling Sequences : 



To select the smallest (AMINl) or the largest (AMAXl) 
member from a set of single precision real numbers, 
expressing the selection as a single precision real number. 



jSR ISAM. XI (orAM.Nl) 

^N^ (an integer constant specifying the number of members 

in the set. ) 
FORTRAN ADDRESS of Rq 
FORTRAN ADDRESS of Rj 



FORTRAN ADDRESS of R^, , 

N-1 

(The result is placed on the number stack. ) 



Supporting Routines: 
Subroutine Size: 

Notes to User: 



FCALL 

AMAXl (or AMINl) 

N+1 (where N is an integer constant specifying the number 

of members in the set. ) 
FORTRAN ADDRESS of RESULT 



rvjI\.lJ\/ilN AJJUKHbb OI Kq 

FORTRAN ADDRESS of Rj 



FORTRAN ADDRESS of R 



N-1 

(The result is expressed as a single precision real stored 
at the FORTRAN ADDRESS of the result given in the calling 
sequence. ) 



FSAV, FRET; FFLDl, FFSTl, FCLTl. . FARG . 

Two page zero locations and 74 octal locations of normally 
relocatable memory. 

Accumulators, carry are restored upon exit from the 
routine. No error messages are generated. AM. XI and AM. Nl 
must be referenced by an . EXTD statement. AMAXl and AMINl 
must be referenced by an . EXTN statement. 
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SPFL 



AMQD 

Purpose : 
Calling Sequence : 



To fetch the remainder in the quotient of two single precision 
real arguments. 

JSR @ AM.D 

FORTRAN ADDRESS of dividend 

FORTRAN ADDRESS of divisor 

(Result is placed on the top of the number stack. ) 



Supporting Routines ; none; FFLDl, FDVl, FMLl, . FRG0, NSP . 



Subroutine Size: 



Notes to User: 



One page zero location and 100 octal locations of normally 
relocatable memory. 

If the quotient causes overflow or underflow, an error message 
is output by FDVl and no meaningful result is obtained. 

Contents of accumulators, carry are lost. 

AM. D must be referenced by an . EXTD statement. 
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AiAN, ATAN2 




Purpose: 



Calling Sequences: 



Supporting Routines 



Subroutine Size 
and Timing : 



Notes to User: 



To compute the real arctangent of either a real argument 
X or the quotient of two real arguments, y/x. 



One real argument x 

(Input argument x on top of the niomber stack. ) 

ATAN. 
(Output argument replaces x on the number stack. ) 



Two real arguments y and x 

JSR @AT. N2 
FORTRAN ADDRESS of y 
FORTRAN ADDRESS of x 

(Output argument is placed on top of the stack. ) 



FSAV, FRET; FADl, FMLl, FDVl, FPLYl, FSBl, FLIPl, 
FCLTl, FNEGl, FFLDl, FRLDl, NSP . 

Two page zero locations and 222 octal locations of normally 
relocatable memory are required. 

Typical execution times are 13 ms for the NOVA with software 
multiply/divide and 2.2 ms for the SUPERNOVA with hardware 
fixed point multiply/divide. 

Although the routine will accept input arguments of any size, 
results computed by the routine will fall within the following 
ranges: 

- '^/2 < ATN(x) < -^11. 

- Tt < ATN2(x, y) < TT' 
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SPfL 



ATAN, ATAN2 (Continued) 



Notes to User: 



Overflow is possible as the divisor x approaches zero, hi 
the case of overflow + or - 'n'/2 is returned. 



ATAN. must be referenced by an . EXTN statement. AT. N2 
must be referenced by an . EXTD statement. 

ATAN. has an FCALL entry point, ATN . ATN must 
be referenced by an . EXTN statement. 
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COS 




Purpose : 



Calling Sequence : 



To compute the real cosine of an argument x 
expressed as a single precision real number, 

(Input argument x is placed on the top of the number 
stack. ) 

COS. 

(Output result replaces x on the number stack. ) 



Supporting Routines : 
Subroutine Size and Timing : 



Notes to User: 



FSAV, FRET; FPLYl, FDVl, FMLl, FSBl, FNEGl, 
FBRKl, FRLDl, NSP . 

Two page zero locations and 145 octal locations 
of normally relocatable^ memoi) axe required. 

Typical execution times are 13 ms for the NOVA with 
software multiply/divide and 1.9 ms for the SUPERNOVA 
with hardware fixed point multiply/divide. 

The single precision real sine function has an 
alternate entry point in this routine. 

In the case of large arguments of the form 2nn'+ Q, 
-V( 4: ^ < TT, when n becomes very large, significant 
digits in the result will be lost. 

COS. must be referenced by an . EXTN statement. 

This routine has an FCALL entry point, CS. 
CS must be referenced by an . EXTN statement. 
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DIM 

Purpose : 
Calling Sequence : 



To compute the positive difference of two single precision 
real numbers, R and S. 

JSR @DI. 

FORTRAN ADDRESS of R 

FORTRAN ADDRESS of S 

(If R-S ^ the result is zero; otherwise, the result is the 
difference R-S. The result is placed on the number stack. ) 

JSR @XD. is equivalent to JSR @DI. 



Supporting Routines: 
Subroutine Size: 

Notes to User: 



none;.FRG0, FFLDl, FCLTl, FSBl , FRLDl, .NSP . 

One page zero location and 32 octal locations of normally 
relocatable memory. 

Original contents of accumulators, carry are lost. 

DI. and XD. must be referenced by an . EXTD statement. 
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EXP 

Purpose ; 
Calling Sequence: 



Supporting Routines 



Subroutine Size and 



Timing: 



Notes to User: 




To compute the real value of e-'^ with x any single precision 
floating point argument, 

(Input argument x on top of number stack. ) 

EXP. 

(Output result replaces x on top of number stack . ) 

FSAV, FRET;.RTER, FPLYl, FSGNl, FSBl, FDVl, FMLl, 
FLIPl, FBRKl, FRLDl, NSP . 

One page zero location and 160 octal locations of normally 
relocatable memory are required. 

T3^ical execution times are 15 ms for the NOVA with 
software multiply/ divide and 2.9 ms for the SUPERNOVA 
with hardware fixed point multiply/divide. 

If X is the input argument, the routine performs the following 
calculation: 

eX = X * loge2 = 2^^+^) 

where 1 and F are the integral and fractionalportions of the 
power whose base is 2. The argument x of e^ must be 
selected so that I < 175o. 

If either underflow or overflow occurs, an error message 

is typed on the TTY printer, and zero or the greatest possible 

real value replaces x on the stack. 

1 f\ 
In the case of very large I values, where I ^ n*2 , an 

error message is output by FLFXl (which is called by FBRKl). 

EXP. must be referenced by an . EXTN statement. 

This routine has an FCALL entry point, EXPO . EXPO 
must be referenced by an . EXTN statement. 
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EXPC 

Purpose : 
Calling Sequence : 



Supporting Routines: 



Subroutine Size: 



Notes to User: 



To calculate the value e^ - 1 

with X ^ single precision real number. 

(Input argument x on top of number stack. ) 

JSR @EXPC 

(Result replaces input on number stack. ) 

none; FMLl, FLIPl, FPLYl, FSBl, FDV1,.NR1, FRLDl, 
SP, NSP . 

One page zero location and 100 octal locations of normally 
relocatable memory are required. 

Original accumulator contents and state of carry upon 
entry to routine are lost. 

X must be selected such that If Z •« 1/2 where 
Z = X * logio e . 

No error message is given when x is selected to yield 
a value of Z outside the acceptable range. 

EXPC must be referenced by an . EXTD statement. 
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FADl, FSBl 




Purpose: 

Calling Sequences : 



To add (subtract) two single precision real numbers. 



FADl 

(The sum of the top, OPl, and next-to-top, 0P2, 
numbers on the number stack is computed; OPl is 
popped and the sum replaces 0P2. ) 



FSBl 

(The top number on the stack, OPl, is subtracted from 
the next-to-top number, 0P2; OPl is popped, and the 
value OP2-OP1 replaces 0P2. ) 



Supporting Routines: 

Subroutine Size 
and Timing: 



Notes to User: 



MPY, DVD; SP, FLSP, . NDSP, . RTES . 

1 7 octal page zero locations and 754 octal locations of 
normally relocatable memory are required. 

Typical execution time on the NOVA with software 
multiply/divide is 1.0 ms if inputs to FADl have like signs 
or the input subtrahend to FSBl is negative. Otherwise, the 
typical execution time is 1. 1 ms. On the SUPERNOVA 
with hardware fixed point multiply/ divide, typical execution 
times are 250 jus and 275 jas with the same qualifications 
given above on the inputs to these subroutines. Each of 
these times includes the time necessary to perform 
1 floating store and 2 floating load operations. 

Original states of accumulators, carry are lost. FFLDl, 
FFSTl, FXFLl, FLFXl, FSGNl, FMLl, FDVl, FNEGl, 
FCLEl, FCLTl, FCGEl, FCGTl, and FCEQl also 
have entry points in the single precision floating point 
module. 

An error message is generated upon overflow or underflow 
of the result. Results are normalized before being placed on 
the number stack. FADl and FSBl must be referenced by an 
. EXTN statement. 
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FCLTl, FCLEl, FCEQl, FCGEl, FCGTl 



Purpose : 



To compare the size and sign of two single precision 
real numbers, and set the carry bit to a one if the 
specified condition is true. Conditions which may be 
examined are as follows: 



0P2 


<0P1 -- 


FCLTl 


0P2 


*OPl -- 


FCLEl 


0P2 


= OPl -- 


FCEQl 


0P2 


-OPl -- 


FCGEl 


0P2 


* OPl -- 


FCGTl 



Calling Sequence : 



where OPl is the top number on the number stack (1, e. , 
the most recently loaded number) and 0P2 is the next- 
to-top number on the stack (the next most recently 
loaded ). 

(The two numbers to be compared are loaded on the 
number stack. ) 

FCLTl (or FCLEl, FCEQl, etc.) 

(Carry is set to a one if the comparison yields an affirmative 
result, otherwise carry is set to a zero. Both compared 
numbers are popped from the stack. ) 



Supporting Routines: 



MFY, DVD; . RTFS, . NDSP, SP, FLSP 



Subroutine Size: 



Notes to User: 



17 octal page zero locations and 754 octal locations of 
normally relocatable memory are required. 

Original states of accumulators, carry are lost. 

FFLDl, FFSTl, FXFLl, FLFXl, FSGNl, FADl, FSBl, 
FMLl, FDVl, FNEGl also have entry points in the single 
precision floating point module. 

No error messages are generated. 
FCLTl (FCLEl, etc. ) must be referenced by an . EXTN statement 
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FFLDl, FFSTl 




Purpose : 



Calling Sequences : 



Supporting Routines: 

Subroutine Size 
and Timing: 



To unpack and load a single precision real number 
onto the number stack (FFLDl). To pack and store 
a single precision real number from the number 
stack into a FORTRAN ADDRESS (FFSTl). 



FFLDl 

FORTRAN ADDRESS of packed number 

(The number is unpacked and loaded on the number 
stack. ) 



FFSTl 

FORTRAN ADDRESS of destination 

(The number stack is popped, and the popped number 
is packed and stored at the specified FORTRAN 
ADDRESS, with rounding. ) 



MPY, DVD; . RTFS, . NDSP, SP, FLSP . 

17 octal page zero locations and 754 octal locations of 
normally relocatable memory are required. 

Typical execution times are 250jus for FFLDl and FFSTl 
on the NOVA, and 50 ^is for FFLDl and FFSTl on the 
SUPERNOVA. 



Notes to User; 



Original states of accumulators and carry are lost. FXFL1,FCLT1, 
FLFXl, FSGNl, FADl, FSBl, FMLl, FDVl, FNEGl, FCLEl, 
FCGEl, FCGri, and FCEQl all have entry points in the single 
precision floating point module. JSR @DB. E is equivalent 
to FFLDl. 



No error message is given if an attempt is made to store 
more numbers than exist on the number stack. A stack 
overflow message is generated whenever an attempt is 
made to load onto an already filled number stack. The 
most significant bit of the fourth byte of the word to be stored 
is checked. If set, the third byte is incremented before 
the floating store is accomplished. 



3-17 




FFLDl, FFSTl (Continued) 



An error message is generated whenever a truncation 
of significant exponent digits occurs as the result 
of packing an unpacked number. 

FFLDl and FFSTl must be referenced by an 
. EXTN statement. DB. E must be referenced 
by an . EXTD statement. 
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FMLl, FDVl 



iiffh 



Purpose: 

Calling Sequences : 



To naultiply (divide) two single precision real numbers. 



FMLl 

(The product of the top, OPl, and next-to-top, 0P2, 
numbers on the number stack is computed: OPl is 
popped, and the product replaces 0P2. ) 



FDVl 

(The quotient of the next-to-top, OP2, and top, OPl, 
numbers on the nvunber stack is computed; OPl is 
popped, and 0P2/0P1 replaces 0P2. ) 



Supporting Routines: 

Subroutine Size 
and Timing: 



Notes to User: 



MPY, DVD; . RTES, . NDSP, SP, FLSP . 

17 octal page zero locations and 754 octal locations of 
normally relocatable memory are required. 

Typical execution times are 2. 1 ms for FMLl and 2. 5 
ms for FDVl on the NOVA with software multiply/divide. 
Typical execution times are 320>is for FMLl and 340 >is 
for FDVl on the SUPERNOVA with hardware multiply/ 
divide. Each of these times includes the time necessary 
to perform 1 floating store and 2 floating load operations. 

Original states of accumulators, carry are lost. 

FFLDl, FFSTl, FXFLl, FLFXl, FSGNl, FADl, FSB1,FCGE1, 

FNEGl, FCLEl, FCLTl, FCGTl, and FCEQl also 

have entry points in the single precision floating point module. 

An error message is generated upon underflow or overflow. 
Results are normalized before being placed on the number 
stack. FMLl and FDVl must be referenced by an . EXTN 
statement. 
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FNEGl 

Calling Sequence: 



To change the sign of any real number at the top of the 
number stack. 

FNEGl 

(The sign of the number on the top of the number stack is 
changed. ) 



Supporting Routines : MPY, DVD; . RTES, SP, FLSP , . NDSP . 



Subroutine Size: 



Notes to User: 



17 octal page zero locations and 754 locations of normally 
relocatable memory are required. 

The contents of AC0,AC1 and the original state of carry 
are preserved. 

FFLDl, FFSTl, FXFLl, FLEKl, FMLl, FDVl, FSGNl, 
FADl, FSBl, FCLEl, FCLTl, FCGEl, FCGTl and FCEQl 
also have entry points in the single precision floating point 
module. 

No error messages are generated. 

FNEGl must be referenced by an . EXTN statement. 



.q-9n 



FPWER 




Purpose : 
Calling Sequence : 



Supporting Routines 



Subroutine Size and 



Timing: 



Notes to User: 



To raise a non -negative single precision real base to a 
single precision real power. 

(The real power is loaded onto the number stack, and 
the real base is placed just below the power on the stack. ) 

FPWRl 

(The real power is removed from the number stack, and 
the result replaces the base at the top of the stack. ) 

none; FLIPl, .RTES, FRLDl, FMLl, ALOG. , EXP, 
NSP, SP 

One page zero location and 53 octal locations of normally 
relocatable memory. 

Typical execution times are 31 ms for the NOVA with 
software multiply/divide and 4. 9 ms for the SUPERNOVA 
with hardware fixed point multiply/ divide. 

Original contents of accumulators and carry are lost. 

This routine generates an error message upon receipt 
of a negative base argument, and returns the negative 
base as a result; error messages generated upon underflow 
or overflow are given by the supporting routines. 

FPWRl must be referenced by an . EXTN statement. 
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FSGNl 

Purpose: 
Calling Sequence : 



To examine the sign of a single precision real number. 

(The number which is to be examined is at the top of the 
number stack) 

FSGNl 

(AC0 is returned with -1, 0, or 1 corresponding to a negative, 
zero, or positive state of the examined number. The examined 
number is popped from the stack. ) 



Supporting Routines ; 



MPY, DVD; . RTES, . NDSP, SP, FLSP 



Subroutine Size: 



Notes to User: 



17 octal page zero locations and ^54 octal locations of 
normally relocatable memory are required. 

Original states of accumulators, carry are lost. 

FFLDl, FFSTl, FXFLl, FLFXl, FADl, FSBl, FMLl, 
FDVl, FNEGl, FCLTl, FCLEl, FCEQl, FCGEl, and 
FCGTl also have entry points in the single precision 
floating point module. 

No error messages are generated. 
FSGNl must be referenced by an . EXTN statement. 
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PLYl 

Purpose : 
Calling Sequence : 




To compute a polynomial function P(x) where x is a single 
precision real argument. 



(Input argument x on top of the number stack). 

(AC0 contains the startincr address of LIST+1, See "N< 

to User". ) 

FPLYl 

(L/UtpiiL rCSUiL XrCpxaCCS X on cOp Oj. tnG XIUIjIjljCT 5ta.CiC« f 

Supporting Routines '. none; FRSTl, FMLl, FADl, FRLDl, NSP, SP . 



Subroutine Size: 



Notes to User: 



One page zero location and (34 octal + 4 * order of 
polynomial) locations of normally relocatable memory 
are required for this routine and its accompanying order- 
and- coefficients list. 

P(x) is of the form P(x) = Cq + C^X^ + C^^^ + ... C^x" 

where Cq . . . C^ are real coefficients and all powers 
of X are positive integers. 

The structure of the order-and-coefficients Ust is as 
follows: 

LIST: Single precision fixed point value expressing 

the order of the polynomial. 
LIST+1 : Real coefficient C^ in unpacked format. 



LIST+5: Real coefficient C^-i in unpacked format. 



LIST + 4(n-l) + 1: Real coefficient Cq in unpacked format. 



FPLYl must be referenced by an . EXTN statement. 
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RATNl 

Purpose : 
Calling Sequence : 



To calculate the arctangent of a quotient of two single 
precision real arguments loaded onto the number stack. 

(The argument denominator, OPl, is at the top of the 
number stack. The argument numerator, 0P2, is at the 
frame following OPl on the number stack. ) 

RATNl 

(Argument OPl is removed from the number stack and the 
arctangent of 0P2/0P1 replaces the input argument 0P2 
on the number stack. 



Supporting Routines: 
Subroutine Size : 

Notes to User: 



none;ATAN. , FDVl, FRLDl, FSBl, SP, NSP. 

One page zero location and 35 octal locations of normally 
relocatable memory. 

The original contents of accumulators and carry are lost 
upon exit. 

RATNl must be referenced by an . EXTN statement. 
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SIGN 



SPFL 



Purpose : 

Calling Sequences : 



Supporting Routines 



To transfer the sign of one single precision real number to 
another single precision real number. 



JSR @SI. N 

rvjXVlK.AiN AJJUKilSa or K.1 

FORTRAN ADDRESS of R2 



(The sign of R2 is transferred to Rl which is then stored 
on the number stack. ) 



FCALL 

SIGN 

Integer 3 

FORTRAN ADDRESS of Result 

FORTRAN ADDRESS of Rl 

FORTRAN ADDRESS of R2 

(The sign of R2 is transferred to Rl which is then stored 
at the FORTRAN ADDRESS of the result. ) 



FRET, FSAV; FFLDl, FFSTl, . FARG, NSP 






Notes to User: 






v^uc page z,t;xu location ana ,50 octal locations ol normally 
relocatable memory. 

Accumulators, carry are restored upon exit. No error 
messages are generated. 

SI. N must be referenced by an . EXTD statement. 
SIGN must be referenced by an . EXTN statement. 
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SIN 

Purpose : 
Calling Sequence : 



To compute the real sine of an argument x expressed 
as a single precision real number. 

(Input argument x is placed on the top of the number 
stack) 



SIN. 



(Output result replaces x on the number stack) 



Supporting Routines 



Subroutine Size and Timing : 



Notes to User: 



FSAV, FRET; FNEGl, FMLl, FSBl, FBRKl, FPLYl, 
FDVl, FRLDl, NSP. 

Two page zero locations and 156 octal locations 
of normally relocatable memory are required. 

Typical execution times are 16 ms for the NOVA 
and 2. ms for the SUPERNOVA with hardware 
fixed point multiply/ divide. 

The single precision real cosine function has an 
alternate entry point in this routine. 

In the case of large arguments of the form 2nTf+ 9, 

-rf < © ^^ft, when n becomes a very large integer, significant 

digits in the result will be lost. 

SIN. must be referenced by an . EXTN statement. 
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SINH 

Purpose : 
Calling Sequence : 



Supporting Routines : 



Subroutine Size: 



Notes to User: 



To compute the hyperbolic sine of a single precision real 
number. 



(Input argument on number stack, ) 

JSR @. SHIN 
(Result is left on the number stack. ) 



JSR @SI. H 

FORTRAN ADDRESS of argument 

(Result is left on the number stack. ) 



FRET, FSAV; NSP, EXP, EXPC, FDVl, FRLDl, FLIPl, 
FCLTl, FMLl, FSBl, FFLDl, . FARG . 

Two page zero locations and 66 octal locations of 
normally relocatable memory. 

Accumulators and carry are restored upon exit. No 
error messages are generated. 

. SHIN and SI. H must be referenced by an . EXTD 
statement. 

.SHIN and SI. H have FCALL entry points, .SHIN 
and SNH . . SHIN and SNH must be referenced by 
an .EXTN statement. 
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SQRT 

Purpose : 
Calling Sequence : 



Supporting Routines ; 



Subroutine Size 



and Timing ; 



Notes to User: 



To compute the single precision real square root of 
any non-negative single precision real argument x. 

(Input argument x on top of number stack. ) 

SQRT. 

(Output result replaces x on top of nuntiber stack. ) 

FSAV, FRET; . RTER, FADl, FDVl, FLIPI, FRLDl, 
NSP . 

One page zero location and 142 octal locations of 
normally relocatable memory are required. 

Typical execution times are 13 ms for the NOVA 
with software mutliply/ divide and 1. 7 ms for the 
SUPERNOVA with hardware fixed point multiply/ divide. 

If the input argument is negative, an error message 
is output and the square root of the absolute value of the 
argument is computed. 

SQRT. must be referenced by an . EXTN statement. 

Original contents of accumulators and carry are 
restored upon exit from this routine. 

This routine has the FCALL entry point SQR . 



3-28 



TAN 

Purpose : 
Calling Sequence ; 



Supporting Routines 



Subroutine Size 



and Timing : 



Notes to User: 




To compute the single precision real tangent of 
X, any single precision real argument. 

(Input argument x on top of number stack. ) 

TAN. 

(Output result replaces x on top of number stack. ) 

FSAV, FRET; FNEGl, FMLl, FSBl, FBRKl, FLIPI, 
i^FLYl, FDVl, FRLDl, NSP . 

One page zero location and 116 octal locations of 
normally relocatable memory are required. 

Typical execution times are 19 ms for the NOVA 
with software multiply/divide and 2.4 ms for the 
SUPERNOVA with hardware fixed point multiply/divide. 

TAN. must be referenced by an . EXTN statement. 
Original contents of accumulators and carry are restored 
upon exit from this routine. 

This routine has an FCALL entry point, TN . TN must 
be referenced by an . EXTN statement. 



3-29 




TANH 

Purpose : 
Calling Sequence : 



Supporting Routines 



Subroutine Size: 



Notes to User: 



To calculate the hyperbolic tangent of a single precision 
real number. 

JSR @TA. H 

FORTRAN ADDRESS of the argument 

(The result is loaded onto the top of the number stack. ) 

FSAV, FRET;.FARG, FRLDl, FRST, FSBl, FADl, 
FMLl, FDVl, FFLDl, FCLEl, FLIPl, EXP., FNEGl, 
NSP. 

One page zero location and 126 octal locations of normally 
relocatable memory. 

Original contents of accumulators and carry are restored 
upon exit. Error messages, if issued, will originate 
from the supporting routines. 

TA. H must be referenced by an . EXTD statement. 

This routine has an FCALL entry point, TNH . 
TNH must be referenced by an . EXTN statement. 
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DOUBLE PRECISION FLOATING POINT ROUTINES 

DATAN, DATAN2 4-3 

DCOS. DSIN 4-5 

DEXP 4-6 

DEXPC 4-7 

DLOG, DLOGIO 4-8 

DMAXl, DMINl 4-10 

DMOD 4-12 

DPWER • 4-13 

DSIGN 4-14 

DSINH 4-15 

DSQRT 4-16 

DTAN 4-17 

DTANH 4-18 

FAD2, FSB2 4-19 

FCLT2, FCLE2, FCEQ2, FCGE2, FCGT2 4-20 

FFLD2, FFST2 4-21 

FML2, FDV2 4-23 

FNEG2 4-24 

FPLY2 4-25 

FSGN2 . 4-26 

RATN2 4-27 
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DATAN, DATAN2 




Purpose : 






To calculate the arctangent of a doiible precision real number 
(DATA. ) or the arctangent of a quotient of two double 
precision real numbers (DA. N2). 



(The single argument whose arctangent is to be calculated 
is loaded onto the number stack. ) 

DATA. 

(The result replaces the input argument on the number 
stack. ) 



Supporting Routines 



JSR @DA. N2 

FORTRAN ADDRESS of argument dividend 

FORTRAN ADDRESS of argument divisor 

(The arctangent of the quotient of the input argument is 
loaded onto the number stack. ) 



FSAV, FRET; FDV2, FSB2, FFLD2, FPLY2, FCLT2, 



TT»T* T r^r* -r-iT x-nn 



T-l A T~t j^-I Ik T/~l T 



riM^uz, rj_,irz, . r ako, iNsr , tN\.i->z, rAJJZ 



Subroutine Size 
and Timing : 



Notes to User: 



Two page zero locations and 301 octal locations of normally 
relocatable memory. 

Typical execution times for DA. N2 are as follows: 
120 ms for the NOVA with software multiply/divide, and 
14 ms for the SUPERNOVA with hardware fixed point 
multiply/divide. Typical execution times required for DATA, 
are as follows: 74 ms for the NOVA with software multiply/ 
divide and 15 ms for the SUPERNOVA with hardware fixed 
point multiply /divide. 

The sign of the result is the same as the sign of the single 
input argument or argument quotient. 

Original contents of accumulators and carry are restored. 



4-3 




DATAN, DATAN2 (Continued) 



JSR @XA. N2 and JSR @DA. A2 are each equivalent to 
JSR @DA.N2. Likewise, XAAN. is equivalent to DATA. 

DATA, and XAAN. must be referenced by an . EXTN statement. 
DA. A2, XA. N2 and DA. N2 must be referenced by an . EXTD state- 
ment. 
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DCOS , DSIN 




Purpose : 



To calculate the sine (DSIN. ) or cosine (DCOS. ) of a double 
precision real number. 



„ 1 — ^>^^. 



Supporting Routines 



Subroutine Size and 



Timing: 



Notes to User : 



\iiie input argdment is loaded onto tlae number stack. ) 

DCOS. (or DSIN. ) 

(The result replaces the input argument on the number stack. ) 

FSAV, FRET; FPLY2, FBRK2, FML2, FDV2, FLIP2, FSB2, FRLD2, 
NSP . 

Two page zero locations and 161 octal locations of normally 
relocatable memory. 

Typical execution times for DCOS. are as follows: 86 ms 
for the NOVA with software multiply/divide and 12 ms 
for the SUPERNOVA with hardware fixed point 
multiply/divide. 

Typical execution times for DSIN. are 90 ms for the NOVA 
with software multiply/divide and 11 ms for the SUPERNOVA 

vviui iKij.uwa.j.c; XXACU puiUL lllUlLipiy/ UlVlQe, 

Original contents of accumulators and carry are restored 
upon exit. 

XCS. is equivalent to DCOS. and XSN. is equivalent to 
DSIN. 

DCOS. , DSIN. , XCS. , and XSN. must be referenced 
by an . EXTN statement. 
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DEXP 

Purpose : 
Calling Sequence : 



Supporting Routines 



Subroutine Size 
and Timing: 



Notes to User: 



To calculate the value e''' with x any double precision 
real number. 

(The input argument is loaded onto the number stack. ) 

XEP. 

(The result replaces the input argument on the number 
stack. ) 

FSAV, FRET; .RTER, FSGN2, FRLD2, FSB2, FML2, 
FDV2, FLIP2, FPLY2, FRST2, FAD2, NSP, FBRK2 . 

One page zero location and 232 octal locations of normally 
relocatable memory. Typical execution times are 76 ms 
for the NOVA with software multiply/divide and 11 ms 
for the SUPERNOVA with hardware fixed point multiply/ divide. 

Original contents of accumulators and carry are restored 
upon exit. 

An error message is issued upon overflow or underflow 
and either the largest possible value or zero is returned 
as a result. 

DEXP. is equivalent to XEP. 

DEXP. and XEP. must be referenced by an . EXTN statement. 

This routine has an FCALL entry point, DEXP . 
DEXP must be referenced by an , EXTN statement. 
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DEXPC 




Purpose : 
Calling Sequence : 



Supporting Routines 



Subroutine Size: 



Notes to User: 



To calculate the value e^-1 with x a double precision real 
number. 

(The input argument is loaded onto the number stack. ) 

JSR @DEXPC 

(The result replaces the input argument on the number stack. ) 

none? FRLD2, FML2, FLIP2, FPLY2, FSB2, FDV2, .NRl, 
NSP, SP . 

One page zero location and 137 octal locations of normally 
relocatable memory. 

Original contents of accumulators and carry are lost. 

Any error messages will be generated by the supporting 
routines . 

The range of values for input arguments to this routine is 
restricted such that ~ iogin^ *x ■«= 1/2. 

DEXPC must be referenced by an . EXTD statement. 
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DLOG, DLOGIO 



Purpose : 

Calling Sequencer ; 



To calculate either the natural logarithm or the logarithm 
to the base 10 of a double precision real number. 



(The argument whose natural logarithm is to be calculated 
is loaded onto the number stack, ) 

DLOG. 
(The result is loaded onto the top of the number stack. ) 



Supporting Routines : 



Subroutine Size and 



Timing: 



Notes to User: 



JSR @DL.G0 (or@XA.G0) 

FORTRAN ADDRESS of argument whose base 10 logarithm 

is to be calculated. 

(The result is loaded onto the number stack. ) 



FSAV, FRET; . RTER, . FARG, FFLD2, FML2, FCLT2, 
FLIP2, FSB2, FDV2, FAD2, FRLD2, FPLY2, FXFL2, NSP 



Two page zero locations and 275 octal locations of normally 
relocatable memory. Typical execution times for the 
natural logarithm function are as follows: 99 ms for the 
NOVA with software multiply/divide, and 13 ms for the 
SUPERNOVA with hardware fixed point multiply/ divide. 
Typical execution times for the base 10 logarithm function 
are 103 ms for the NOVA with software multiply/ divide and 
14 ms for the SUPERNOVA with hardware fixed point 
multiply/divide. 

If the input argument is negative an error message is 
issued, the argument is forced positive and the logarithm is 
then calculated. 

Upon receipt of a zero input argument the largest possible 
negative number will be returned. 
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DPFL 



DLOG, DLOGIO (Continued) 



DLOG. and XAOG. are equivalent; DL. G0 and XA. G0 are 
equivalent. 

Original contents of accumulators and carry are restored 
upon exit. 

Ui-i\j\ji, cuiu y^ri.KjKj. iiiusL jjc iciciciiccu uy tui . jj/yvii-N oLaLcmcut. 

DL. G0 and XA. G0 must be referenced by an . EXTD statement. 
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DMAXl, DMINl 



Purpose : 



Calling Sequences: 



To select the smallest (DMlNl) or largest (DMAXl) member 
from a set of double precision real numbers, expressing the 
selection as a double precision real number. 



JSR @DM.X1 (orDM.Nl) 

N (an integer constant specifying the number of members 

in the set. ) 
FORTRAN ADDRESS of DRl 
FORTRAN ADDRESS of DR2 



FORTRAN ADDRESS of DRN 

(The largest or smallest member of the set is placed on 
the number stack. ) 



Supporting Routines: 
Subroutine Size: 

Notes to User: 



FCALL 

DMAXl (or DMINl) 

N+1 (N is an integer constant specifying the number of 

of members in the set. ) 
FORTRAN ADDRESS of RESULT 
FORTRAN ADDRESS of DRl 
FORTRAN ADDRESS of DR2 



FORTRAN ADDRESS of DRN 

(The largest or smallest member of the set is placed at the 
FORTRAN ADDRESS of the result. ) 



FSAV, FRET; . FARG, FFST2, FFLD2, FCLT2 . 

Two page zero locations and 72 octal locations of normally 
relocatable memory. 

Accumulators, carry are restored upon exit from the routine. 
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DMAXl, DMINl (Continued) 



No error messages are generated. 

JSR @XA. XI is equivalent to JSR @DM. XI , and 
JSR XA. Nl is equivalent to JSR @DM. Nl . 

DMAXl and DMINl must be referenced by an . EXTN state mait. 

r\A^ VI T\\X Ml VA -Vl I-VTA 1VT1 i1^^ r , 

j_/ivi.^j., uivi. i\x,yvn.. /s.i, cuiu ^rt.. iM iiiusi oe reierencca 
by an . EXTD statement. 
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DMOD 

Purpose : 
Calling Sequence : 



To fetch the modulus of two double precision real numbers 
(i. e. , the remainder of their quotient. ) 



JSR @DM. D 

FORTRAN ADDRESS of DRl 

FORTRAN ADDRESS of DR2 



;DIVIDEND 
;DIVISOR 



(Result is placed on the top of the number stack. ) 



Supporting Routines 



JSR @XA. D is equivalent to JSR @DM. D . 
none; FFLD2, FDV2, FML2, . FRG0, NSP, SP . 



Subroutine Size: 



Notes to User: 



One page zero location and 127 octal locations of normally 
relocatable memory. 

If the quotient DR1/DR2 causes overflow or underflow, 
an error message will be output by FDV2 and no mean- 
ingful result will be returned. 

DM. D and XA.D must be referenced by an . EXTD statement. 
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DPWER 




Purpose : 
Calling Sequence : 



Supporting Routines : 



Subroutine Size: 



and Timing : 



Notes to User: 



To raise a non-negative double precision real number 
to a double precision real power. 

(The real power is loaded onto the number stack, and the 
real base is placed just below the power on the stack. ) 

FPWR2 

(The real power is removed from the stack, and the result 
replaces the base at the top of the stack. ) 

none; FLIP2, .RTFS, . FFLD2, FML2, FRLD2, DLOG., 
DEXP., NSP, SP . 

One page zero location and 55 octal locations of normally 
relocatable memory. 

Typical execution times are 180 ms for the NOVA with 
software fixed point multiply/divide and 24 ms for the 
SUPERNOVA with hardware fixed point multiply/ divide. 

Original contents of accumulators and carry are lost. 

This routine generates an error message and returns the 
base as the result upon receipt of a negative base 
argument; error messages generated upon underflow or 
overflow are given by the supporting routines. 

FPWR2 must be referenced by an , EXTN statement. 
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DSIGN 



Purpose : 

Calling Sequences : 



To transfer the sign of one double precision real number to 
another double precision real number. 



JSR @DS. GN 

FORTRAN ADDRESS of DRl 

FORTRAN ADDRESS of DR2 

(The sign of DR2 is transferred to DRl which is then stored 
on the number stack. ) 



Supporting Routines 



FCALL 

DSIGN 

Integer 3 

FORTRAN ADDRESS of Result 

FORTRAN ADDRESS of DRl 

FORTRAN ADDRESS of DR2 

(The sign of DR2 is transferred to DRl which is then stored 
at the FORTRAN ADDRESS of the result. ) 



FSAV, FRET; FFLD2, FFST2, . FARG, NSP . 



Subroutine Size: 



Notes to User: 



One page z,ero lo*;ation and 33 octal locations of normally 
relocatable memory. 

Accumulators, carry are restored upon exit. 

No error messages are generated. 

JSR @XS. N is equivalent to JSR @DS.GN . 

DSIGN must be referenced by an . EXTN statement. DS. GN 
and XS. N must be referenced by an . EXTD statement. 
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DSINH 




Purpose : 
Calling Sequence: 



Supporting Routines 



Subroutine Size: 



Notes to User: 



To calculate the hyperbolic sine of a double precision 
real number. 



(The argument is placed on the number stack. ) 

JSR @. DSHIN 
(The result replaces the argumenL on the number stack. ) 



JSR @DS. NH 

FORTRAN ADDRESS of argument 

(The result is placed on the number stack. ) 



FRET, FSAV; NSP, DEXP, DEXPC, FDV2, FRLD2, 
FLIP2, FCLT2, FML2, FSB2, . FARG, FFLD2 . 

Two page zero locations and 72 octal locations of normally 
relocatable memor"' 

Accumulators and carry are restored upon exit. No 

error messages are generated. XS. H is equivalent to . DSHIN 

DS. NH, . DSHI and XS: H must be referenced by an . EXTD 
statement. 

. DSHIN and DS. NH have FCALL entry points, DSINH 
and DSNH . DSINH and DSNH must be referenced by an 
.EXTN statement. 
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DSQRT 

Purpose : 
Calling Sequence : 



Supporting Routines : 



Subroutine Size and 



Timing: 



Notes to User: 



To calculate the square root of a double precision real number. 

(The input argument is loaded onto the number stack. ) 

DSQR. 

(The result replaces the input argument on the number stack. ) 

FSAV, FRET; FRLD2, FML2, FAD2, FLIP2, FDV2, FPLY2, 
.RTER, NSP. 



One page zero location and 127 jctal locations of normally 
relocatable memory. 

Typical execution times are 82 ms for the NOVA with software 
multiply/divide and 8. 1 ms for the SUPERNOVA with 
hardware fixed point multiply /divide. 

Original contents of accumulators and carry are restored 
upon exit. 

An error message Is output by this routine upon receipt 
of a negative argument. In this case, the argument is 
forced positive and the square root of the positive 
quantity is calculated. 

XSRT. is equivalent to DSQR . 

DSQR. and XSRT. must be referenced by an . EXTN statement. 

This routine has an FCALL entry point, DSQR . 
DSQR must be referenced by an . EXTN statement. 
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DTAN 

Purpose : 
Calling Sequence : 



Supporting Routines t 



Subroutine Size: 



and Timing : 



Notes to User: 



To calculate the tangent of a double precision real number. 

(The input argument is loaded onto the number stack. ) 

DTAN. 

(The result replaces the input argument on the number stack. ) 

FRAV FRPT. TTAAT 9 TTHA^ T7R T r\0 TJCDO T7Dp K-^ 

FPLY2, FLIP2, NSP . 

One page zero location and 165 octal locations of normally 
relocatable memory. 

Typical execution times are 84 ms for the NOVA with 
software multiply/divide and 9. 3 ms for the SUPERNOVA 
with hardware fixed point multiply /divide. 

Original contents of accumulators and carry are restored 
upon exit. 

XTN. is equivalent to DTAN. 

DTAN. and XTN. must be referenced by an . EXTN statement. 

This routine has an FCALL entry point, DTN . 
DTN must be referenced by an . EXTN statement. 
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DTANH 

Purpose : 
Calling Sequence: 



Supporting Routines 



Subroutine Size 
and Timing : 



Notes to User 



To calculate the hyperbolic tangent of a double precision 
real number, 

JSR @DT. NH 

FORTRAN ADDRESS of argument 

(The result is loaded onto the number stack. ) 

FSAV, FRET; FAD2, FML2, FDV2, FFLD2, DEXP. , 
FSB2, FLIP2, FCLT2, FRST2, FRLD2, DEXPC, . FARG, 
NSP . 

One page zero location and 136 octal locations of normally 
relocatable memory. 

Typical execution times are 185 ms for the NOVA with 
software multiply/divide, and 21. 5 ms for the SUPERNOVA 
with hardware fixed point multiply/divide. 

JSR @XT. H is equivalent to JSR @DT. NH . 

Original contents of accumulators and carry are restored 
upon exit from this subroutine. If any error messages 
are generated they will be generated by the supporting 
routines. 

DT. NH and XT. H must be referenced by an . EXTD statement. 

This routine has an FCALL entry point, DTNH . DTNH 
must be referenced by an . EXTN statement. 
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F_AD2- FSR5 




Purpose: 

Calling Sequences : 



To add (subtract) two double precision real numbers. 



FAD2 

(The sum of the top, OPl, and next-to-top, 0P2, 
numbers on the number stack is computed; OPl is 
popped and the sum replaces 0P2. 



FSB2 

(The top number on the stack, OPl, is subtracted 
from the next-to-top number, 0P2; OPl is popped, 
and the value 0P2-0P1 replaces 0P2.) 



Supporting Routines: 

Subroutine Size 
and Timing: 



Notes to User: 



MPY, DVD; SP, FLSP, , NDSP, . SV0, . RTFS . 

17 octal page zero locations and 1233 octal locations of 
normally relocatable memory are required. 

Typical execution time on the NOVA with software multiply/ 
divide is 1. 3 ms if inputs to FAD2 have like signs or the 
input subtrahend to FSB2 is negative. Otherwise, the typical 
execution time is 1. 4 ms. On the SUPERNOVA with hardware 
fixed point multiply/ divide, typical execution times are 
300 jis and 400 >is with the same qualifications given above on 
the inputs to these subroutines. Each of these times includes 
the time necessary to perform 1 floating store and 2 floating 
load operations. 

Original states of accumulators, carry are lost. FFLD2, FFST2, 
FXFL2, FLFX2, FSGN2, FML2, FDV2, FNEG2, FCLT2, 
FCLE2, FCEQ2, FCGE2, and FCGT2 also have entry points 
in the double precision floating point module. 

An error message is generated upon underflow or overflow 
of result. Results are normalized before being placed on the 
number stack. FAD2 and FSB2 must be referenced by 
an . EXTN statement. 
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FCLT2, FCLE2, FCEQ2, FCGE2, FCGT2 



Purpose: 



Calling Sequence : 



Supporting Routines; 
Subroutine Size: 

Notes to User: 



To compare the size and sign of two double precision real 
numbers, and set the carry bit to a one if the specified 
condition is true. Conditions which may be examined are 
as follows: 



0P2 <0P1 - 
0P2 <0P1 - 
0P2s: OPl - 
OP2> OPl - 
0P2> OPl - 



- FCLT2 

- FCLE2 

- FCEQ2 

- FCGE2 

- FCGT2 



where OPl is the top number on the number stack 

(i. e. , the most recently loaded number) and OP2 is the 

next-to-top number on the stack, 

(The two numbers to be compared are loaded on the number 
stack. ) 

FCLT2 (or FCLE2, etc.) 

(Carry is set to a one if the comparison yields an affirmative 
result, otherwise carry is set to a zero. Both compared 
numbers are popped from the stack. ) 

MPY, DVD;SP, FLSP, . NDSP, . SV0, .RTES . 



17 octal page zero locations and 1233 octal locations of 
normally relocatable memory are required. 

Original states of accumulators, carry are lost. 

FFLD2, FFST2, FXFL2, FLFX2, FSGN2, FAD2, 
FSB2, FML2, FDV2, and FNEG2 have entry points 
in the double precision floating point module. 

No error messages are generated. 

FCLT2 (FCLE2,etc) must be referenced by an . EXTN statement. 
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FFLD2, FFST2 
Purpose: 



v-.aiiuig Sequences : 




To unpack and load a double precision real number onto 
the number stack (FFLD2). 

To pack and store a double precision real number from 
the number stack into a FORTRAN ADDRESS (FFST2). 



FFLD2 

FORTRAN ADDRESS of packed number 

(The number is unpacked and loaded onto the number stack. ) 



FFST2 

FORTRAN ADDRESS of destination 

(The number stack is popped, and the popped number 

is packed and stored at the specified FORTRAN ADDRESS, 

with rounding. ) 



Supporting Routines i MPY, DVD; SP, FLSP, . NDSP, . SV0, . RTFS 



Subroutine Siz e 
anu ximing; 



Notes to User: 



17 octal page zero locations and 1233 octal locations of 
normally relocatable memory are required. 

Typical execution times are 500 jis for FFLD2 or FFST2 
on the NOVA, and 100 jus for FFLD2 or FFST on the 
SUPERNOVA. 

Original states of accumulators and carry are lost. 

FXFL2, FLFX2, FSGN2, FAD2, FSB2, FML2, FDV2, 
FNEG2, FCLT2, FCLE2, FCEQ2, FCGE2, and FCGT2 
also have entry points in the double precision floating 
point module. JSR @XD. E is equivalent to FFLD2. 

No error message is given if an attempt is made to store 
more numbers than exist on the number stack. A stack 
overflow message is generated whenever an attempt is made 
to load onto a filled number stack. The most significant 
bit of the eighth byte of the word to be stored is checked. 
If set, the 7th byte is incremented before the floating 
store is accomplished. 
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FFLD2, FFST2 (Continued) 



An error message Is generated whenever a truncation of 
significant exponent digits occurs as the result of packing 
an unpacked number. 

FFLD2 and FFST2 must be referenced by an . EXTN statement. 
XD. E must be referenced by an . EXTD statement. 
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FML2, FDV2 




Purpose: 

Calling Sequences: 



To multiply (divide) two double precision real nunibers. 



FML2 

(The product of the top, OPl, and next-to-top, OP2, 
numbers on the number stack is computed; OPl is 
popped, and the product replaces 0P2 on the stack. ) 



FDV2 

(The quotient of the next-to-top, 0P2, and top, OPl, 
numbers on the number stack is computed; OPl is 
popped, and 0P2/0P1 replaces 0P2. 



Supporting Routines: MPY, DVD; SP, FLSP, . NDSP, . SVj8, . RTFS . 



Subroutine Size and 
Timing: 



Notes to User: 



17 octal page zero locations and 1233 octal locations 
of normally relocatable memory are required. 

Typical execution times are 5. 7 ms for FML2 and 11. 4 
ms for FDV2 on the NOVA with software multiply/divide. 
Typical execution times on the SUPERNOVA with hardware 
fixed point multiply/divide are 700 >is for FML2 and 1.28 ms 
for FDV2. Each of these times includes the time necessary 
to perform 1 floating store and 2 floating load operations. 

Original states of accumulators, carry are lost. 

FFLD2, FFST2, FXFL2, FSGN2, FAD2, FSB2, FNEG2, FLFXl 
FCLT2, FCLE2, FCEQ2, FCGE2, and FCGT2 also have 
entry points in the double precision floating point module. 

An error message is generated upon underflow or overflow 
of result. 

Results are normalized before being placed on the number 
stack. 

FML2 and FDV2 must be referenced by an . EXT^J statement. 
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FNEG2 

Purpose: 
Calling Sequence: 



To change the sign of any real number at the top of 
the number stack. 

FNEG2 

(The sign of the number on top of the number stack is 
changed) 



Supporting Routines 
Subroutine Size: 

Notes to User: 



MPY, DVD; SP, FLSP, .NDSP, .SV0, . RTES . 



17 octal page zero locations and 1233 octal locations 
of normally relocatable memory are required. 

The contents of AC0, ACl, and the original state 
of carry are preserved. 

FFLD2, FFST2, FXFL2, FLFX2, FSGN2, FAD2, 
FSB2, FML2, FDV2, FCGE2, FCLT2, FCLE2, FCEQ2, 
and FCGT2 also have entry points in the double 
precision floating point module. 

No error messages are generated. 

FNEG2 must be referenced by an . EXTN statement. 
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FPLY2 



Purpose : 
Calling Sequence : 



Supporting Routines: 
Subroutine Size: 



Notes to User: 




To compute a polynomial function P(x) where x is a 
double precision real number. 



(The input argument x is at the top of the number stack. 

A /-<rt 4._: ^1-, 

Notes to User. ) 



A Z^rt — < — i— .— ^l.» _^-, ■■ * _JJ -j: t Ti-irr' , i ri _ _ 



FPLY2 

(The output result replaces the input argument on the 
number stack. ) 



none; FRLD2, FML2, FAD2, FRST2, NSP, SP . 

One page zero location and (34 octal + 6 * order of 
polynomial) locations of normally relocatable mer^'iry 
are required for this routine and its accompanying order- 
and- Coefficients list. 

P(x) is of the form P(x) ^ C^ + C^x^ + C2x2 . . . + C^^x^ 

where Cq through Cj^ are double precision real coefficients 

onH oil ■r\r\^iT£ii*c« r\-f -v tv^i ■i-*<-»cii4-i tt^^^ J*-»4-*T»<-»«i^ •*»n 

The structure of the order-and-coefficients list is as follows: 

LIST: Single precision fixed point number expressing 

J the order of the polynomial 

LlST+1 : Double precision Real coefficient Cj^ in unpacked 

; form 

LIST+7: Double precision Real Coefficient Cj^.^ in 

unpacked form 
LlST+6(m-n+l)*+l 

Double precision Real coefficient Cg in 
unpacked form. 

Original states of accumulators and carry are lost. 
FPLY2 must be referenced by an . EXTN statement. 



where m is the order of the polynomial and x is the number of the term. 
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FSGN2 

Purpose : 
Calling Sequence 



To examine the sign of a double precision real number. 

(The number which is to be examined is at the top 
of the number stack) 

FSGN2 

(AC0 is returned with -1, 0, or 1 corresponding to a 
negative, zero, or positive state of the examined number. 
The examined number is popped from the stack. ) 



Supporting Routines : 
Subroutine Size: 

Notes to User: 



MPY, DVD;SP, FLSP, .NDSP, .SV0, .RTES . 



17 octal page zero locations and 1233 octal locations 
of normally relocatable memory are required. 

Original states of accumulators, carry are lost. 

FFLD2, FFST2, FXFL2, FAD2, FSB2, FML2, 
FDV2, FNEG2, FCLT2, FCLE2, FCEQ2, FCGE2, 
and FCGT2 also have entry points in the double 
precision floating point module. 

No error messages are generated. 

FSGN2 must be referenced by an . EXTN statement. 
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RATN2 

Purpose : 
Calling Sequence : 




To calculate the arctangent of a quotient of two double 
precision real arguments loaded onto the number stack. 

(The argument denominator, OPl- is at the top of the 
number stack. The argument numerator, 0P2, is at the 
frame following OPl on the number stack. ) 

RATN2 

(Argument OPl is removed from the number stack, and 
the arctangent of 0P1/0P2 replaces the input argument 
0P2 on the number stack. ) 



Supporting Routines: 
Subroutine Size: 

Notes to User: 



none; DATA., FDV2, FRLD2, FSB2, NSP, SP . 

One page zero location and 37 octal locations of normally 
relocatable memory. 

The original contents of accumulators and carry are 
lost upon exit from this routine. 

RATN2 must be referenced bv an . EXTN statement. 
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SINGLEJ>RECISIQN COMPLEX. ROUTINES 

CABS 5-3 

CADI, CSBl 5-4 

CCEQl .... 5-5 

CCOS 5-6 

CDVl 5-7 

CEXP 5-8 

CFSTl 5-9 

CLIPl, CLIP2 5-10 

CLOAD 5-11 

CLOG 5-12 

CMLl , 5-13 

CNEGl, CNEG2 5-14 

CONJG 5-15 

CPWRl 5-16 

CSIN 5-17 

CSQRT 5-18 

VLKjruJO ••••••••,•• ,, ••••• D"iy 

REAL. AIMAG 5-20 
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CABS 



Sing le 
Preaisvon 

Comp lex 



Purpose: 



To obtain the absolute value of a single precision complex 
number. 



Calling Sequence : 



Supporting Routines 



JSR oCA. S 

FORTRAN ADDRESS of argument 

(The absolute value of the argument is loaded onto the 

number stack. ) 

iiuiic, . rivo/5, rtLuL, aCaBS, aP . 



Subroutine Size: 



Notes to User: 



One page zero location and 17 octal locations of normally 
relocatable memory. 

Original contents of accumulators and carry are lost upon 
exit from this routine. Stack overflow messages may be 
issued by the supporting routines. 

The result obtained by this routine is a real number, thus 
occupying only one 6 -word frame on the number stack. 

CA. S must be referenced by an . EXTD statement. 



5-3 



sing te 

Precision 

Complex 



CADI, CSBl 



Purpose : 



CallJBg Sequence : 



To add (CADI) the topmost two single precision complex 
numbers on the number stack or to subtract (CSBl) 
the top single precision complex number on the number stack 
from the next -to -top single precision complex number on 
the stack. 

(The two arguments are loaded onto the number stack. ) 

CADI (CSBl) 

(The top argument is removed from the stack, and the sum 
or difference replaces the second argument, ) 



aupporting Routines: 
Subroutine Size: 

Notes to User: 



none; FADl, FRSTl, FRLDl, .NR2, SP, NSP . 

Two page zero locations and 22 octal locations of normally 
relocatable memory. 

Original accumulator contents and carry are not restored 
upon exit from this routine. Error messages are generated 
by supporting routines upon overflow or underflow. 

CADI and CSBl must be referenced by an . EXTN statement. 
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CCEQl 



Single 
Ppeaision 

Comp lex 



Purpose : 
Calling Sequence : 



Supporting Routines 



To compare two single precision complex numbers for 
identity. 

(The two complex numbers to be examined are the topmost 
numbers on the number stack. ) 

CCEQl 

(Carry is set to a one if they are equal, otherwise, it is 
set to a zero. The two complex numbers are removed 
irom the number stack. ) 

none; FCEQl, .NR2, .NRl, . NR3, FRSTl, FRLDl, NSP, SP. 



Subroutine Size: 



Notes to User: 



One page zero location and 21 octal locations of normally 
relocatable memory. 

The original contents of accumulators, carry are lost. 

CCEQl must be referenced by an . EXTN statement. 
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single 
Precision 

Comp lex 



ccos 

Purpose: 
Calling Sequence : 



To compute the cosine of a single precision complex number. 

(A complex argument is loaded on the top of the number 
stack. ) 

CCOS. 

(The cosme of the argument is expressed as a single precision 
complex number and replaces the input argument on the 
number stack. ) 



Supporting Routines: 



Subroutine Size 
and Timing : 



Notes to User: 



none; COS., SIN., .SHIN, EXP., , NR2, FADl, FMLl, FRSTl, 
FRLDl, FLIPl , SP, NSP . 

One page zero location and 43 octal locations of normally 
relocatable memory are occupied by this routine. 

Typical execution times are ill ms for the NOVA with 
software multiply /divide and 17 ms for the SUPERNOVA with 
hardware fixed point multiply /divide. 

Original contents of accumulators and carry are lost. 

Error messages will be generated by EXP. or FMLl 
upon overflow or imderflow. 

CCOS. must be referenced by an . EXTN statement. 
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Vveoisvon 

Comp lex 



CDVl 

Purpose : 
Calling Sequence : 



Supporting Routi nes; 
Subroutine Size: 
Notes to User: 



To divide one single precision complex number by another. 

(The argument divisor is placed on the top of the number 
stack, and the dividend is immediately below the divisor. ) 

CDVl 

(The divisor is removed from the number stack and the quotient 
replaces the dividend on the number stack. ) 

none; FRLDl, FCLEl, FDVl, .NR2, CMLl, FLIPl, FMLl, 
.NR3, FADl, FRSTl, .NRl, SP, NSP . 

One page zero location and 75 octal locations of normally 
relocatable memory. 

Original contents of accumulators and carry are not restored 
upon exit from the routine. Error messages are generated 
by supporting routines upon overflow or underflow. 

CDVl must be referenced by an . EXTN statement. 
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sing le 
Preaision 
Comp lex 



CEXP 



Purpose : 



Calling Sequence : 



Supporting Routines 



Subroutine Size 
and Timing : 



Notes to User: 



To compute the value e with c any single precision complex 
number. 

(The complex argument is loaded onto the number stack. ) 

CEXP. 

(The complex result replaces the argument on the number 
stack. ) 

none; EXP., COS., SIN., .NR2, FLIPl, FRLDl, FRSTl, FMLl, 
SP, NSP. 

One page zero location and 24 octal locations of normally 
relocatable memory are required by this routine. 

Typical execution times are 47 ms for the NOVA with software 
multiply/divide and 7. 8 ms for the SUPERNOVA with hardware 
fixed point multiply/ divide. 

Original contents of accumulators and carry are lost. 

Error messages are generated upon underflow or overflow. 

CEXP, must be referenced by an . EXTN statement. 
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CFSTl 



Precision 

Complex 



Purpose : 
Calling Sequence : 



Supporting Routines : 



To pack and store a single precision complex number located 
on the number stack. 

(The argument is at the top of the number stack. ) 

CFSTl 

FORTRAN ADDRESS to receive the argument 

(The top two six word frames are removed from the stack. ) 

npne; . FRO)?, FFSTl, SP . 



Subroutine Size: 



Notes to User: 



One page zero location and 17 octal locations of normally 
relocatable memory. 

Original accumulator contents and state of carry are both 
lost upon exit from this routine. No error messages are 
generated. 

The argument on the number stack occupies two sequential 
six-word frames, with the top frame containing the imaginary 
portion of the argument. After the argument has been packed 

n-^A ^4-n-^j^A «■*- 4-U» i*^ Ai ^^*.^ J T^r\rt Tin a -nt a r^•^^■^i ir»nr« i ^ • 

cuiu C3njic;u at iiic xiiuii^ctLCU jr v_;r\. i iv.rt.iN /iUUlMlcsO IL occupies 

only four sequential locations, with the first pair of words 
containing the real portion of the argument. 

CFSTl must be referenced by an . EXTN statement. 
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Single 

Precision 

Complex 



CLIPl, CLIP2 



Purpose : 



Calling Sequence : 



To swap positions of the two topmost complex numbers on 
the number stack (whether single or double precision 
or both. ) 

(Two complex numbers are on the top of the number stack. ) 

CLIPl (or CLIP2) 

(The positions of the two complex numbers are interchanged . ) 



supporting Routines: 
Subroutine Size: 

Notes to User: 



none; .NRl, .NR2, . NR3, .FLIP, SP, NSP . 

One page zero location and 15 octal locations of normally 
relocatable memory. 

CLIPl and CLIP2 are equivalent. 

Original contents of accumulators and carry are lost. 

CLIPl and CLIP2 must be referenced by an .EXTN statement. 
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(J LOAD 



Srngle 
Precision 
Comp lex 



Purpose : 
Calling Sequence : 



To impack and load a single precision complex number onto 
the number stack. 

CFLDl 

xyjsxj.ixx\L\ njuuiKCjoo ui tne pacKea real ana imagmary 

portions of the complex number 

(The complex number is unpacked and loaded onto the 
number stack. ) 



supporting Routines : 
Subroutine Size : 

Notes to User: 



none; . FRG0, FFLDl, SP. 

One page zero location and 16 octal locations of normally 
relocatable memory. 

Original contents of accumulators and carry are lost. 
Upon number stack overflow an error message will be 
issued by FFLDl. 

The FORTRAN ADDRESS following the call points to four 
sequential stack locations containing first the real portion 
(in single precision packed format) and then the imaginary 
portion (also in single precision packed format) of the argument. 
The argument is then unpacked and loaded onto the 
number stack in two sequential six word frames. The 
top frame contains the imaginary portion and the next-to-top 
frame contains the real portion of the argument. 

CFLDl must be referenced by an . EXTN statement. 
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single 
Precision 
Comp lex 

CLOG 



Purpose : 



Calling Sequence : 



Supporting Routines: 

Subroutine Size 
and Timing : 



Notes to User: 



To compute the natural logarithm of a single precision 
complex number. 

(The single precision argument is loaded onto the number 
stack. ) 

CLOG. 

(The result replaces the input argument on the number stack. ) 

none;.NR2, RATNl, FRLDl, FRSTl, ALOG. , CLIPl, RCABS, SP, NSP. 

One page zero location and 21 octal locations of normally 
relocatable memory are required by this routine. 

Typical execution times are 60 ms for the NOVA with software 
multiply/divide and 8. 3 ms for the SUPERNOVA with 
hardware fixed point multiply /divide. 

Original contents of accumulators and carry are lost upon 
exit from this routine. Error messages are generated 
upon underflow or overflow by the supporting routines. 

CLOG, must be referenced by an . EXTN statement. 
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CMLl 

Purpose : 
Calling Sequence : 



Supporting Routines: 
Subroutine Size: 

Notes to User: 



Preoision 

Comp lex 



To multiply two single precision complex numbers by one 
another. 

(The two arguments are loaded onto the number stack. ) 

CMLl 

(The topmost argument is removed, and the product replaces 
the second argument on the number stack. ) 

none; FMLl, FRLD1,FAD1,FRST1,FSB1, . NRl, . NR2, . NR3, SP, NSP 

One page zero location and 47 octal locations of normally 
relocatable memory. 

Original contents of accumulators and carry are lost upon 
exit from this routine. Error messages generated upon 
underflow or overflow are issued by supporting routines. 

CMLl must be referenced by an . EXTN statement. 
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Single 


Precision 


Complex 



CNEGl, CNEG2 

Purpose : 
Calling Sequence : 



Supporting Routine: 
Subroutine Size: 

Notes to User: 



To negate the real and imaginary parts of any complex 
number. 

(The complex number to be negated is at the top of 
the number stack. ) 

CNEGl (or CNEG2) 

(The negated complex number replaces the input argument 
on the number stack. ) 

NSP . 

One page zero location and 6 locations of normally relocatable 
memory. 

Original contents of accumulators and carry are lost. 
No error messages are generated. 

CNEGl and CNEG2 must be referenced by an . EXTN statement. 
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single 
Precision 
Comp lex 



CQNJG 

Purpose : 
Calling Sequence : 



Supporting Routine: 
Subroutine Size: 

Notes to User: 



To produce the conjugate of any complex number. 
(The complex number whose conjugate is to be obtained 

tn l/^«-»*Hx-»W ^\t-» ■•-/-» +-1^ r\ trttt t->r\ \-\ /-» ■** *-t4- *-»*-* 1^ \ 

CONJ. 

(The sign of the imaginary portion of the input argument is 
coiiipieiiieiiled, replacing Llie original value. ) 

NSP .. 

One page zero location and five locations of normally 
relocatable memory. 

The original contents of carry and accumulators ACS and 
AC2 are lost; no error messages are generated. 

ACS contains FSP upon exit from this routine. 

This routine accepts both single and double precision 
complex nunnbers as input arguments. 

XCNJ. and DCON. are each equivalent to CONJ. 

CONJ. , XCNJ. and DCON. must be referenced by an . EXTN 
statement. 
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single 
Pre ai si on 
Comp lex 



CPWRl 

Purpose : 
Calling Sequence : 



To raise a single precision complex number to a single 
precision complex power. 

(The complex power is on the top of the stack, the complex 
base is immediately below it. ) 

CPWRl 

(The power and base are removed from the stack; the 
complex result is loaded on the stack. ) 



Supporting Routines: 
Subroutine Size : 

Notes to User: 



none; CLOG., CEXP. , CMLl, . NR3, .NR2, FRLDl, FRST1,SP 

One page zero location and 20 octal locations of normally 
relocatable memory. 

Original contents of accumulators, carry are lost. Error 
messages can arise from the supporting routines. 

CPWRl must be referenced by an , EXTN statement. 
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rSTN 



Single 
Precision 

Comp lex 



Purpose : 
Calling Sequence : 



Supporting Routines : 



Subroutine Size 



and Timing : 



Notes to User: 



To compute the sine of a single precision complex number. 

(The single precision complex argument is input on the top 
of the number stack. ) 

CSIN. 

(The result replaces the input argument on the number stack. ) 

none; COS., SIN., .SHIN, EXP., . NR2, FADl, FML1,FRST1, 
FRLDl, FLIPl, SP, NSP . 

One page zero location and 42 octal locations of normally 
relocatable memory are required by this routine. 

Typical execution times are 100 ms on the NOVA with 
software multiply/divide and 15 ms on the SUPERNOVA 
with hardware fixed point multiply/divide. 

Accumulators, carry are lost. Any error messages 
generated will be issued by the supporting routines. 

CSIN. must be referenced by an . EXTN statement. 
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single 
Precision 
Comp lex 



CSQRT 



Purpose : 



Calling Sequence : 



Supporting Routine s ; 



Subroutine Size 
and Timing : 



Notes to User: 



To compute the square root of a single precision complex 
number. 

(The complex argument is placed at the top of the number 
stack. ) 

CSQR. 

(The result replaces the input argument on the number 
stack. ) 

none; . NR2, FRLDl, RATNl, FLIPl, CLIPl, FMLl, SQRT. , RCABS, 
SIN. , COS. ,. FRSTl, SP, NSP • 

One page zero location and 47 octal locations of normally 
relocatable memory are required by this routine. 

Typical execution times are 89 ms on the NOVA with 
software multiply/ divide and 12 ms for the SUPERNOVA 
with hardware fixed point multiply/divide. 

Original contents of accumulators and carry are lost. 
CSQR. must be referenced by an . EXTN statement. 
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RCABS 



Single 
Precision 
Comp lex 



Purpose : 
Calling Sequence : 



Supporting Routines 



Subroutine Size: 



Notes to User: 



To obtain the absolute value of a single precision complex 
number located on the number stack. 

(The complex argument is loaded onto the number stack. ) 
JSR @RCABS 

(The complex argument is removed from the number 
stack, and the absolute value of the argument is loaded 
there. ) 

none;.NRl, .NR2, SQRT,, FLIPl, FMLl, FDVl, FADl, 
FRLDl, FCLEl, SP, NSP . 

One page zero location and 42 octal locations of 
normally relocatable memory. 

Original contents of accumulators and carry are lost. 
Error messages are generated by supporting routines. 

RCABS must be referenced by an . E XTD statement. 
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single 

Precision 

Complex 



REAL, AIMAG 



Purpose : 

Calling Sequences : 



To fetch either the real or the imaginary parts of a single 
precision complex number. 



JSR @RE. L 

FORTRAN ADDRESS of complex number 

(The real portion of the complex number is loaded onto the 
number stack. ) 



Supporting Routines : 



JSR @AI. AG 

FORTRAN ADDRESS of complex number 

(The imaginary portion of the complex number is loaded 
onto the number stack. ) 



none; .FRGjgr, FFLDl, SP 



Subroutine Size: 



Notes to User: 



Two page zero locations and 22 octal locations of normally 
relocatable memory. 

Original contents of accumulators, carry are lost upon 
exit. No error messages are generated. 

RE.L and Al.AG must be referenced by an .EXTD statemeit. 
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DOUBLE PRECISION COMPLEX 
ROUTINES 

CAD2, CSB2 6-3 

CCEQ2 6-4 

CDV2 ; 6-5 

CFST2 6-6 

CML2 6-7 

CPWR2 ' 6-8 

DCABS 6-9 

DCCOS 6-10 

DCEXP 6-11 

DCLOD 6-12 

DCSIN 6-13 

DCSQR 6-14 

DDCLO 6-15 

DREAL, DAIMG 6-16 

RDCABS 6-17 



6-1 



Double 

Preaision 

Complex 



CAD2, CSB2 



Purpose : 



Calling Sequence : 



To add (CAD2) the topmost two double precision complex 
numbers on the number stack or to subtract (CSB2) the 
top double precision complex number on the stack from the 
nextH;o-top double precision number on the stack. 

(The two arguments are loaded onto the number stack. ) 
CAD2 (or CSB2) 

(The top argument is removed from the stack, and the sum 
or difference replaces the second argument. ) 



Supporting Routines ; none; FAD2, FRST2, FRLD2. . NR2, SP, NSP . 



Subroutine Size: 



Notes to User: 



Two page zero locations and 22 octal locations of normally 
relocatable memory. 

Original accumulator contents and carry are not restored 
upon exit from the routine. Error messages are generated 
by supporting routines upon overflow or underflow. 

CAD2 and CSB2 must be referenced by an . EXTN statement. 
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Doub le 

Precision 

Complex 



CCEQ2 



Purpose : 
Calling Sequence : 



To compare two double precision complex numbers for 
identity. 

(The two complex numbers to be examined are the topmost 
numbers on the number stack. ) 

CCEQ2 

(Carry is set to a one if they are equal, otherwise, it is 
set to zero. The two complex numbers are removed from 
the number stack. ) 



Supporting Koutines: 
Subroutine Size : 

Notes to User: 



none; FCEQ2, . NR2, . NRl, . NR3, FRST2, FRLD2, SP, NSP . 

One page zero location and 21 octal locations of normally 
relocatable memory. 

Original contents of accumulators, carry are lost. 

CCEQ2 must be referenced by an . EXTN statement. 
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Double 
Precision 
Comp lex 



CDV2 

Purpose : 

Calling Sequence : 



Supporting Routines 



Subroutine Size: 



Notes to User: 



To divide one double precision complex number by another. 

(The argument divisor is placed on the top of the number 
stack, and the dividend is immediately below the divisor, ) 

CDV2 

(The divisor is removed from the number stack and the 
quotient replaces the dividend on the number stack. ) 

none; FRLD2, FCLE2, FDV2, CML2, FLIP2, FML2, 
.NR3, .NR2, .NRl, FAD2, FRST2, SP, NSP . 

One page zero location and 101 octal locations of normally 
relocatable memory. 

Original contents of accumulators and carry are not restored 
upon exit from this routine. Error messages are generated 
by supporting routines upon overflow or underflow. 

CDV2 must be referenced by an . EXTN statement. 
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Double 
Preaision 
Comp lex 



CFST2 

Purpose: 
Calling Sequence : 



To pack and store a double precision complex number 
located on the number stack. 

(The argument is at the top of the number stack. ) 

CFST2 

FORTRAN ADDRESS to receive the argument 

(The top two six -word frames are removed from the 
stack. ) 



Supporting Routines: 
Subroutine Size: 

Notes to User: 



none; . FRG0, FFST2, SP . 

One page zero location and 20 octal locations of normally 
relocatable memory. 

Original accumulator contents and state of carry are 
both lost upon exit from this routine. No error messages 
are generated. 

The argument on the number stack occupies two sequential 
six-word frames, with the top frame containing the 
imaginary portion of the argument. After the argument has 
been packed and stored at the indicated FORTRAN ADDRESS 
it occupies eight sequential locations, with the first group 
of four words containing the real portion of the argument. 

CFST2 must be referenced by an . EXTN statement. 



6-6 



CML2 



Double 


Precision 


Complex 



Purpose: 
Calling Sequence : 



Supporting Routines 



Subroutine Size: 



Notes to User: 



To multiply two double precision complex numbers by 
one another. 

(The two arguments are loaded onto the number stack. ) 
CML2 

(The topmost argument is removed, and the product 
replaces the second argument on the number stack. ) 

none;DCLO., DCEX. , .NR2, . NR3, FRLD2, FRST2, 
SP, FML2, FAD2, FSB2 . 

One page zero location and 47 octal locations of 
normally relocatable memory. 

Original contents of accumulators and carry are lost 
upon exit from this routine. Error messages are 
generated upon overflow or underflow by supporting routines. 

CML2 must be referenced by an . EXTN statement. 
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Doub le 
Precision 
Comp lex 



CPWR2 



Purpose : 



Calling Sequence : 



To raise a double precision complex number to a double 
precision complex power. 

(The complex power is on the top of the stack, the complex 
base is immediately below it. ) 



CPWR2 



Supporting Routines ; 



(The power and base are removed from the stack; the 
complex result is loaded on the stack. ) 

none; DCLO. , DCEX. , CML2, . NR2, . NR3, FRLD2, SP 
FRST2 . 



Subroutine Size: 



Notes to User: 



One page zero location and 20 octal locations of normally 
relocatable memory. 

Original contents of accumulators, cariy are lost upon 
exit from this routine. Error messages can arise from 
the supporting routines. 



CPWR2 must be referenced by an . EXTN statement. 
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UUACb 



Doub le 
Preaision 
Comp lex 



Purpose : 
Calling Sequence : 



Supporting Routines 



To obtain the absolute value of a double precision complex 
number. 

JSR @DC.BS 

FORTRAN ADDRESS of argument 

(The absolute value of the argument is loaded onto the 
number stack. ) 

none; . FRGi?, FFLD2, RDCABS, SP • 



Subroutine Size: 



Notes to User: 



One page zero location and 22 octal locations of normally 
relocatable memory. 

Original contents of accumulators and carry are lost 
upon exit from this routine. Stack overflow messages may 
be issued by the supporting routines. 

The result obtained by this routine is a real number, thus 
occupying only one 6 -word frame on the number stack. 

JSR @XC. S is equivalent to JSR @DC. BS. 

XC. S and DC. BS must be referenced by an . EXTD statement. 
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Doub le 

Pveaision 

Complex 



DCCOS 

Purpose : 
Calling Sequence : 



Supporting Routines : 



Subroutine Size 



and Timing : 



Notes to User: 



To compute the cosine of a double precision complex number. 

(The double precision complex argument is placed on the 
top of the number stack. ) 

DCCO. 

(The result replaces the argument on the number stack. ) 

none;DCOS., DSIN. , .DSHIN, DEXP. , . NR2, FAD2, 
FML2, FRST2, FLIP2, SP, NSP , FRLD2 . 

One page zero location and 45 octal locations of normally 
relocatable memory are occupied by this routine. 

Typical execution times are 580 ms for the NOVA with 
software multiply/divide and 89 ms for the SUPERNOVA 
with hardware fixed point multiply/divide. 

Accumulators and carry are lost upon exit from this routine. 
Any error messages generated will be issued by the supporting 
routines. 

XCOS. is equivalent to DCCO. 

XCOS. and DCCO. must be referenced by an . EXTN statement. 
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DCEXP 



Doub le 
Precision 

Complex 



Purpose : 



To compute the value e with c any double precision complex 
number. 



Calliii;^ Sequexicfc; : 



Supporting Routines 



Subroutine Size 
and Timing : 



Notes to User: 



une complex argument is loaded onto the number stack. ) 
DCEX. 

(The complex result replaces the argument on the number 
stack, ) 

none;DEXP., DCOS. , DSIN. , . NR2, FLIP2, FRLD2, FRST2, 
FML2, SP, NSP. 



One page zero location and 24 octal locations of normally 
relocatable memory are required by this routine. 

Typical execution times are 295 ms for the NOVA with software 
multiply /divide and 36. 5 ms for the SUPERNOVA with 
hardware fixed point multiply/divide. 

Original contents of accumulators and carry are lost upon 
exit from this routine. Error messages are generated 
upon underflow or overflow. 



XCXP. is equivalent to DCEX. 
DCEX. and XCXP. must be referenced by an . EXTN statement. 
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Doub le 

Precision 

Complex 

DCLOD 



Purpose : 



Calling Sequence : 



To unpack and load a double precision complex number 
onto the number stack. 

CFLD2 

FORTRAN ADDRESS of the packed real and imaginary 

portions of the complex number. 

(The complex number is unpacked and loaded onto the 
number stack. ) 



Supporting Routines: 
Subroutine Size: 

Notes to User: 



none; . FRGj?^, FFLD2, SP . 

One page zero location and 21 octal locations of normally 
relocatable memory. 

Original contents of accumulators and carry are lost. 

Upon number stack overflow an error message will be issued 

by FFLD2. 

The FORTRAN ADDRESS following the call points to eight 
sequential stack locations containing first the real portion 
(in double precision packed format) and then the imaginary 
portion (also in double precision packed format) of 
the argument. The argument is then unpacked and loaded 
onto the number stack In two sequential six word frames. The 
top frame contains the imaginary portion and the next -to-top 
frame contains the real portion of the argument. 

CFLD2 must be referenced by an . EXTN statement. 
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DCSIN 



Double 
Precis 'ion 

Camp lex 



Purpose : 



Calline Seauence: 



Supporting Routines 



Subroutine Size 
and Timing : 



Notes to User: 



To compute the sine of an angle expressed as 
a double precision complex number. 



^ _„^>, ^^N,wiuj.vyii v.vixi^xv,yv clJ.gUillCllL XO UipUt Ull Lllti 



top of the number stack. ) 
DCSI. 



(The result replaces the argument on the number stack. ) 

none;DCOS., .DSHIN, DS.NH, DEXP. , .NR2, FAD2, 
FML2, FRST2, FRLD2, FLIP2, SP, NSP. 



One page zero location and 44 octal locations of normally 
relocatable memory are occupied by this routine. 

Typical execution times are 585 ms for the NOVA with 
software multiply /divide and 90 ms for the SUPERNOVA 
with hardware fixed point multiply/divide. 

Accumulators and carry are lost. Any error messages 
generated will hp issiipH h-ir tht^ aMr\r,nr-i-ir,ry^ --^..t-,,,^^ 

XCIN. is equivalent to DCSI. 

XCIN. and DCSI. must be referenced by an . EXTN statement. 
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Doub te 
Precision 
Comp lex 



DCSQR 

Purpose : 
Calling Sequence : 



To compute the square root of a double precision complex 
number. 

(The complex argument is placed at the top of the number 
stack. ) 

DCSQ. 

(The result replaces the input argument on the number stack. ) 



Supporting Routines: 



Subroutine Size 



and Timing : 



Notes to User: 



none; .NR2, FRLD2, RATN2, FLIP2, CLIP2, FML2, DSQR. , 
DSIN., DCOS., FRST2, SP, NSP, RDCABS . 

One page zero location and 51 octal locations of normally 
relocatable memory are occupied by this routine. 

Typical execution times are 655 ms for the NOVA with 
software multiply /divide and 70. 5 ms for the SUPERNOVA 
with hardware fixed point multiply /divide. 

Original states of accumulators and carry are lost. 

XCQR. is equivalent to DCSQ. 

DCSQ. and XCQR. must be referenced by an . EXTN statement. 
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DDCLO 



Doub le 
Pre oision 
Complex 



Purpose : 



To compute the natural logarithm of a double precision 
complex number. 



Calling SemiPTirp' 
— - p 1 



\ * **^ v^w^^iv, ^J.^,^^J.t3i^Jll CULguliltilL J.O lUctUCU Ull Lilt: UUIUJJfcJr 



Stack, ) 



XCOG. 



Supporting Routines ; 



Subroutine Size 
and Timing : 



Notes to User: 



(The result replaccH the input argument on the number 
stack. ) 

none; . NR2, RATN2, FRLD2, FRST2, DLOG. , CLIP2, 
RDCABS, SP, NSP. 

One page zero location and 21 octal locations of normally 
relocatable memory are required. 

Typical execution times are 430 ms for the NOVA with 
software multiply /divide and 45. 5 ms for the SUPERNOVA 
with hardware fixed point multiply/ divide. 

Original contents of accumulators and carry are lost upon 

pvit frnm fViio -rnnt-ino !?•.-»•/-.■.- wiooor.^^,, „— ^ ^ ^„j 

-^^•j ■•.^^^^^•.^m A-i^j.^j. liiv^ooagco axe; gcllCiaLCLl 

upon underflow or overflow by the supporting routines. 
DCLO. is equivalent to XCOG. 

DCLO. and XCOG. must be referenced by an . EXTN statement. 
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Doub le 
Preaision 
Comp lex 



DREAL . DAIMG 



Purpose : 



Calling Sequences: 



To fetch the real or complex parts of a double precision 
complex number. 



JSR @DR. AL 

FORTRAN ADDRESS of complex number 

(The real portion of the complex number is loaded on the 
number stack. ) 



JSR @DA. MG 

FORTRAN ADDRESS of complex number 

(The imaginary portion of the complex number is loaded 
on the number stack. ) 



Supporting Routines: 
Subroutine Size: 

Notes to User: 



none; . FRG^, FFLD2, SP 

Two page zero locations and 24 octal locations of normally 
relocatable memory. 

JSR @XPv. L is equivalent to JSR @DR. AL, and 
JSR @XA. AG is equivalent to JSR @DA. MG . 

Original contents of accumulators, carry are lost; 
no error messages are generated. 

DR. AL, DA. MG, XR. L, and XA. AG must be referenced 
by an . EXTD statement. 
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RDCABS 

Purpose : 
Calling Sequence : 



Supporting Routines 
Subroutine Size : 
Notes to User: 



Doub te 
Precision 

Comp lex 



To obtain the absolute value of a double precision complex 
number located on the number stack. 

(The complex argument is loaded onto the number stack. ) 
JSR @RDCABS 

(The complex argument is removed from the number stack, 
and the absolute value of the argument is loaded there. ) 

nonej.NRl, .NR2, DSQR-,FLIP2, FML2, FDV2, FAD2, 
FRLD2, FCLE2, SP, NSP . 

One page zero location and 44 octal locations of normally 
relocatable memory. 

Original contents of accumulators and carry are lost. Error 
messages are generated by supporting routines. 

The result obtained by this routine is a real number, 

thus occupying only one 6-word frame on the number stack. 

RDCABS must be referenced by an . EXTD statement. 
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MIXED MODE ROUTINES 

AMAX0, AMIN0 7-3 

BREAK . 7-5 

CMPLX 7-6 

CRCXl 7-7 

CRCX2 7-8 

CXFLl 7-9 

CXFL2 7-10 

DBREAK 7-11 

DCMPLX 7-12 

DIPWR 7-13 

FLIP 7-14 

FRLDl, FRLD2 7-15 

FRSTl, FRST2 . ., 7-16 

FXFLl, FLFXl 7-17 

FXFL2, FLFX2 7-19 

IDINT 7-21 

IFIX 7-22 

TXTnn -. 

i-l^^'- /-26 

MAXl, ^jlINl 7-24 

. NRl 7-25 

.NR2 .7-26 

. NR3 7-27 

RIPWR 7-28 
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AMAX0, AMIN0 



Mixed 
Mode 



Purpose : 



Calling Sequences: 



Supporting Routines: 
Subroutine Size: 



To select the smallest (AM1N0) or the largest (AMAX0) 
member from a set of integers, expressing the selection 
as a single precision real value. 



JSR @AM.N0 (or@AM.X0) 

N (an integer constant specifying the number of members 

in the set) 
FORTRAN ADDRESS of Iq 
FORTRAN ADDRESS of Ij^ 



FORTRAN ADDRESS of Ij^.j 

(The result is expressed as a single precision real 
on the top of the number stack. ) 



FCALL 

AMAX0 (or AM1N0) 

N+1 (where N is an integer constant specifying the number 

of members in the set. ) 
FORTRAN ADDRESS of result 
FORTRAN ADDRESS of L 



FORTRAN ADDRESS of I 




1 



FORTRAN ADDRESS of Ij^^.^ 

(The result is expressed as a single precision real number 
stored at the FORTRAN ADDRESS of the result given 
in the calling sequence. ) 



FSAV, FRET; . FARG, FXFLl, FFSTl . 

Two page zero locations and 76 octal locations of normally 
relocatable memory. 
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Mixed 
Mode 



AMAX0, AMIN0 (cont'd) 



Notes to User: 



Accumulators, carry are restored upon exit from the 
routine. No error messages are generated. 

AM. N0 and AM.X0 must be referenced by an . EXTD statement. 
AMAX0, AMIN0 must be referenced by an . EXTN statement. 
AM,N0and AM.X0 have FCALL entry points AMN0 and 
AMX0 respectively. 
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BREAK 

Purpose; To separate a single precision real number x 

into its integral and fractional components. 

Calling Sequence : (Input argument x on top of the number stack. ) 

FBRKl 

(Output fractional result replaces x on the number 
stack; integral result is placed in AC0. ) 

Supporting Routines : none; FXFLl, FLFXl, FSBl, FRLDl, NSP, SP . 



Subroutine Size: 



Notes to User: 



One page zero location and 15 octal locations of 
normally relocatable memory are required. 

Original contents of all accumulators and the 
state of carry upon exit from this routine are lost. 

Upon exit from this routine AC0 is loaded with 
the integral portion of the argument, expressed 
as a single precision fixed point number. The 
fractional portion of the argument is expressed 
as a single precision real value. 

FLFXl will generate an error message whenever 
the integral portion of the argument exceeds the range 
+ (215-1). 

FBRKl must be referenced by an . EXTN statement. 
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Mixed 
Mode 



CMPLX 



Purpose : 

Calling Sequences : 



To construct a single precision complex number from two 
single precision real numbers. 



JSR @CM. LX 

FORTRAN ADDRESS of real portion 

FORTRAN ADDRESS of imaginary portion 

(A complex number is formed and loaded on the number stack. ) 



Supporting Routines 
Subroutine Size: 

Notes to User: 



FCALL 

CMPLX 

Integer 3 

FORTRAN ADDRESS of result 

FORTRAN ADDRESS of real portion 

FORTRAN ADDRESS of imaginary portion 

(A complex number is formed and is then stored at the FORTRAN 
ADDRESS of the result. ) 



FSAV, FRET; FFSTl, .FARO, FFLDl 

One page zero location and 40 octal locations of normally 
relocatable memory. 

Original contents of accumulators, carry are restored 
upon exit. No error messages are generated . 

CM. LX must be referenced by an . EXTD statement. 
CMPLX must be referenced by an . EXTN statement. 
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:rcxi 



Mixed 

Mode 



Purpose : 
Calling Sequence : 



To convert a packed single precision real number R to 
a single precision complex number of the form R + |8L 

CRCXl 

FORTRAN ADDRESS of single precision real argument R 

(The real argument R becomes expanded to a complex 
number of the form R + 0i, which is loaded on the number 
stack. ) 



Supporting Routines: 



Subroutine Size: 



Notes to User: 



none; . FRGj2l, FFLDl, FRLDl, SP . 

One page zero location and 22 octal locations of normally 
relocatable memory. 

Original contents of accumulators and carry are lost; 

any error messages issued will be generated by the supporting 

routines. 

CRCXl must be referenced by an . EXTN statement. 
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Mi- xe d 
Mode 



CRCX2 



Purpose : 
Calling Sequence : 



Supporting Routines ; 



To convert a packed double precision real number D to 
a double precision complex number of the form D + 0i . 

CRCX2 

FORTRAN ADDRESS of double precision real argument D 

(The real argument D becomes expanded to a complex number 
of the form D + 0i , which is loaded onto the number stack. ) 

none; . FRGJ?, FFLD2, FRLD2, SP . 



Subroutine Size: 



Notes to User: 



One page zero location and 24 octal locations of normally 
relocatable memory. 

Original contents of accumulators and carry are lost; 
an error message will be generated by FFLD2 or FRUD2 
upon number stack overflow. 

CRCX2 must be referenced by an . EXTN statement. 
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Mixed 
Mode 



CXFLl 



Purpose : 



Calling Seauencer 



^ ii 



To convert an integer I to a single precision complex 
number of the form 1 + 01. 

CXFLl 

FORTRAN ADDRESS of the integer argum.ent I 

(The integer argument I becomes expanded to a complex 
number of the form I + 0i which is loaded onto the number 



Supporting Routines : ^one; FXFLl, FRLDl, . FRG^, SP . 



Subroutine Size: 



Notes to User: 



One page zero location and 21 octal locations of normally 
relocatable memory. 

Original contents of accumulators and carry are lost; 
an error message will be issued by a supporting routine 
upon stack overflow. 



CXFLl must be referenced by an . EXTN statement. 
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Mixed 
Mode 



CXFL2 



Purpose : 
Calling Sequence : 



To convert an integer I to a double precision complex 
number of the form I + 0i , 

CXFL2 

FORTRAN ADDRESS of the integer argument I 

(The integer argument I becomes expanded to a double 
precision complex number I + 0i which is loaded onto the 
number stack. ) 



Supporting Routines: 
Subroutine Size : 

Notes to User: 



none; FXFL2, FRLD2, . FRGJ2I, SP . 

One page zero location and 23 octal locations of normally 
relocatable memory. 

Original contents of accumulators and carry are lost; 
an error message will be issued by a supporting routine 
upon stack overflow. 

CXFL2 must be referenced by an . EXTN statement. 
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Mixed 
Mode 



DBREAK 



Purpose : 






To separate a double precision real number into its 
integral and fractional components. 

^iiic input argument is lOaded onto the number stack. ) 

FBRK2 

(The integral portion is expressed as a single precision 
fixed point value which is loaded into AC0. The fractional 
component replaces the input argument on the number 
stack. ) 



Supporting Routines: 
Subroutine Size: 

Notes to User: 



none; FXFL2, FLFX2, FRLD2, FSB2, NSP, SP . 

One page zero location and 15 octal locations of normally 
relocatable memory. 

Original contents of accumulators and carry are lost. 

Error messages generated will be issued by the supporting 
routines. 

FBRK2 must be referenced by an . EXTN statement. 
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Mixed 
Mode 



DCMPLX 



Purpose : 

Calling Sequences : 



To construct a double precision complex number from two 
double precision real numbers. 



JSR @DC. PX 

FORTRAN ADDRESS of real portion 

FORTRAN ADDRESS of imaginary portion 

(A complex number is formed and loaded on the number 
stack. ) 



Supporting Routities 



FCALL 

DCMPL 

Integer 3 

FORTRAN ADDRESS of result 

FORTRAN ADDRESS of real portion 

FORTRAN ADDRESS of imaginary portion 

(A complex number is formed and is then stored at the 
FORT RAN ADDRESS of the result. ) 



FSAV, FRET; . FARG, FFLD2, FFST2, SP . 



Subroutine Size: 



Notes to User: 



One page zero location and 43 octal locations of normally 
relocatable memory. 

JSR @XC. LX is equivalent to JSR @DC. PX. 

Original contents of accumulators and carry are restored 
upon exit. No error messages are generated. 

DCMPL must be referenced by an . EXTN statement. 

XC. LX and DC. PX must be referenced by an . EXTD statement. 
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Mixed 
Mode 



DIFWR 

Purpose : 
Calling Sequence : 



Supporting Routines ; 



Subroutine Size 
and Timing: 



Notes to User: 



To raise a double precision real base to an Integer power. 

FIPR2 

FORTRAN ADDRESS of the integer power 

FORTRAN ADDRESS of the real base 

(The real result is loaded onto the number stack. ) 

FSAV, FRET; . FARG, FLIP2, FDV2, FML2, FRST2, 
FRLD2, FFLD2» NSP. 

One page zero location and 52 octal locations of normally 
relocatable memory. 

Typical execution times on the NOVA with software multiply/ 
divide are 5 ms where the integer power, I, equals 0, or 
7ms + 5 ms * (I-l) where I > 1. Where I < -1, the 
execution time equals 17.5 ms +(-1-1)* 5.5 ms. 

Typical execution times on the SUPERNOVA with hardware 
multiply/divide are 425 us where 1 = 0, and 1 ms + (I-l) *. 6 ms 
where 1 > 1. Execution times where I < -1 are 
correspondingly larger. 

Each of the above execution times includes the time required 
for one floating store operation. 

Original contents of accumulators and carry are restored 
upon exit from this routine; error messages upon overflow 
or underflow will be issued by supporting routines. 

FIPR2 must be referenced by an . EXTN statement. 

This routine has an FCALL entry point, DIPWR . 
DIPWR must be referenced by an . EXTN statement. 
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Mixed 
Mode 



FLIP 



Purpose: 

Calling Sequences : 



To interchange number stack positions of two single or double 
precision real numbers. 



(AC0 and ACl point to two six-word frames -- usually on 

the number stack, but they could be anywhere -- which are to be 

swapped. ) 

JSR @. FLIP 

(The contents of the two frames are now exchanged. ) 



(The two topmost frames on the number stack contain variables 
which will be interchanged. ) 

FLIPl, FLIP2 

(The two topmost variables on the number stack are 
swapped. ) 



FLIPl and FLIP2 are equivalent. 
Supporting Routines: SP, NSP . 



Subroutine Size: 



Notes to User: 



Two page zero locations and 26 octal locations of normally 
relocatable memory are required. 

Original accumulator contents and state of carry are lost. 

Six word frames on the number stack may contain either single 
or double precision real variables. 

. FLIP must be referenced by an . EXTD statement. 

FLIPl and FLIP2 must be referenced by an . EXTN statement. 
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FRLDl, FRLD2 



Mixed 

Mode 



Purpose : 

Calling Sequences : 



To load any unpacked real number onto the number stack. 



(AC0 contains the address of the sign word of a single precision 
real number which is to be loaded onto the number stack. ) 

FRLDl 

(The single precision real number is loaded onto the top of 
the number stack. ) 



(AC0 contains the address of the sign word of a double 
precision real number which is to be loaded onto the number 
stack. ) 

FRLD2 

(The double precision real number is loaded onto the top 
of the number stack. ) 



aupportiag Routines: 
Subroutine Size : 

Notes to User: 



none; .RTER, NSP, SP, . NDSP . 

Two page zero locations and 32 octal locations of normally 
relocatable memory. 

Original contents of accumulators, carry are lost. 

A fatal error message is generated upon stack overflow. 

An unpacked single precision real number in normally 
relocatable memory occupies four sequential memory locations. 
Nonetheless, this four word block is expanded to 6 words 
(by padding the two least significant mantissa words with 
zeroes) so that all frame lengths on the number stack will 
be of equal size. 

FRLDl and FRLD2 must be referenced by an . EXTN statement. 
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Mi- xed 
Mode 



FRSTl, FRST2 



Purtxjse : 



Calling Sequences: 



To store any real number located on the number stack 
at a specified address, in unpacked form. 



(Address to receive sign word of single precision 
real number is contained in AC0. ) 

FRSTl 

(The single precision number is stored, unpacked, at 
the four sequential addresses specified, and the number 
Is popped from the number stack. ) 



(Address to receive sign word of double precision 
real number is contained in AC0) 

FRST2 

(The double precision number is stored, unpacked, 
at the six sequential addresses specified, and the 
number is popped from the number stack. ) 



Supporting Routines: 
Subroutine Size: 

Notes to User: 



SP, NSP . 

Two page zero locations and 25 octal locations of 
normally relocatable memory are required. 

Original states of accumulators, carry are lost. 

No error messages are generated. 

No check is made by this routine to ascertain whether 
or not there really is a number on the number stack. 

FRSTl and FRST2 must be referenced by an . EXTN 
statement. 
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FXFLl, FLFXl 




Purpose : 



Calling Sequences : 



To convert a fixed point number to an unpacked 
single precision real, and load it on the number 
stack (FXFLl). 

To pop a single precision real number from the 
number stack, convert it to fixed point format, and 
store it at a specified FORTRAN ADDRESS (FLFXl). 



FXFLl 

FORTRAN ADDRESS of fixed point number I 

(I is converted to a single precision floating point 
numbe r which is loaded on the number stack. ) 



FLFXl 

FORTRAN ADDRESS to receive 1 

(The top member of the number stack is converted 
to a fixed point number I, the stack is popped, and 
1 is stored at the FORTRAN ADDRESS following 
the call. ) 



Supporting Routines 
Subroutine Size: 
Notes to User: 



MPY, DVD; . RTES, SP, FLSP . 



17 octal page zero locations and 754 octal locations 
of normally relocatable memory are required. 

Original states of accumulators and carry are 
lost. 

FFLDl, FFSTl, FMLl, FDVl, FSGNl, FADl, FSBl, 
FNEGl, FCLEl, FCLTl, FCGEl, FCGTl, and FCEQl 
also have entry points in the single precision 
floating point module. 

An error message is generated if FXFLl attempts to 
load an already filled number stack. 
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Mixed 
Mode 



FXFLl, FLFXl (Continued) 



An error message is issued if the input argument to 
FLFXl falls outside the range [-21^+1, +2l5-i] ; 
a signed maximum integer is returned as a result. If 
the input argument for FLFXl is in the range 
< -1 , + 1 > , zero is returned as a result. 

No error message occurs if FLFXl is called with an 
empty number stack. 

FXFLl and FLFXl must be referenced by an . EXTN 
statement. 

JSR @FL.AT is equivalent to FLFXl and must be 
referenced by an . EXTD statement. 
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FXFL2, FLFX2 



Mixed 
Mode 



Purpose ; 



To convert a fixed point number to an unpacked double 
precision real, and load it on the niimhpr sf^rV /fyft 9^ 



Calling Sequences : 



To pop a double precision real number from the number 
stack, convert it to fixed point format, and store it 
at a specified FORTRAN ADDRESS (FLFX2). 



FXFL2 

FORTRAN ADDRESS of fixed point number 1 

(I is converted to a double precision floating point 
number which is loaded on the number stack. ) 



FLFX2 

FORTRAN ADDRESS to receive 1 

(The top number of the number stack is converted to a 
fixed point number I, the stack is popped, and I is 
stored at the FORTRAN ADDRESS following the call. ) 



Supporting Routines: 
Subroutine Size: 

Notes to User: 



MPY, DVD; . RTFS, SP, FLSP, . NDSP, . SV0 . 

17 octal page zero locations and 1233 octal locations of 
normally relocatable memory are required. 

Original states of accumulators and carry are lost. 

FFLD2, FFST2, FSGN2, FAD2, FSB2, FML2, FDV2, 
FNEG2, FCLT2, FCLE2, FCEQ2, FCGE2 and FCGT2 
also have entry points in the double precision floating 
point module. 

An error message is generated if FXFL2 attempts to 
load an already filled number stack. 
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Mixe d 
Mode 



FXFL2, FLFX2 (Continued) 



Notes to User : An error message is issued if the input argument of 

FLFX2 falls outside the range [-215-1, -{-l^^-Y] ; 
a signed maximum integer is returned as a result. If 
the input argument for FLFX2 is in the range 
< -1, +1 > , zero is returned as a result. 

No error message occurs if FLFX2 is called with an 
empty number stack. 

JSR @DF. OT is equivalent to FXFL2. 

FXFL2 and FLFX2 must be referenced by an . EXTN 
statement. 



DF. OT must be referenced by an . EXTD statement. 
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Subroutine Size: 



Notes to User: 




IDINT 

Purpose : To tmncate a double precision real number and express the 

result as a fixed point number. 

Calling Sequence : JSR @ID. NT 

FORTRAN ADDRESS of location where result is to be stored 
FORTRAN ADDRESS of real number DR to be truncated 

(DR is truncated, converted to a fixed point number, and 
is stored at the FORTRAN ADDRESS following the call. ) 

Supporting Routines : pg^y^ pj^^^. pLpx2, FFLD2, . FARG . 



One page zero location and 1 1 octal locations of normally 
relocatable memory. 

Accumulators, carry are restored upon exit. Error 
messages will be generated if the truncated real number 
exceeds +2^^-l or is less than -(2^^-l). 

JSR @XI. is equivalent to JSR @ID. NT . 

ID. NT and XI. must be referenced by an . EXTD statement. 

This routine has an FCALL entry point, . IDIN , 
. IDIN must be referenced by an , EXTN statement. 
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Mixed 
Mode 



IFIX 



Purpose : 
Calling Sequence : 

Supporting Routines ; 



To truncate a single precision real number and express it 
as a fixed point number. 

JSR @1F.X 

FORTRAN ADDRESS of integer result. 

FORTRAN ADDRESS of real value to be truncated 

FSAV, FRET; . FARG, FFLDl, FLFXl, NSP 



Subroutine Size: 



Notes to User: 



One page zero location and 21 octal locations of normally 
relocatable memory. 

JSR @XI. X is equivalent to JSR @IF. X . 

Accumulators, carry are restored upon exit. 

IF. X and XI. X must be referenced by an . EXTD 
statement. 

This routine has an FCALL entry point, . IFIX . 
, IFIX must be referenced by an . EXTN statement. 
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INT 

Purpose : 
Calling Sequence : 



supporting Routines 



Subroutine Size: 



Notes to User: 



Mixed 

Mode 



To truncate a single precision real and express the result 
as the nearest integer. 

JSR @IN. 

FORTRAN ADDRESS of location where result is to be stored 

FORTRAN ADDRESS of real number R to be truncated^^^^^" 

(R is truncated, converted to a fixed point number and is 
stored at the FORTRAN ADDRESS following the call. ) 

FSAV, FRET; . FARG. FFLDl, FLFXl . 

One page zero location and 11 octal locations of normally 
relocatable memory. 

Accumulators, carry are restored upon exit. 

If the truncated real is greater than 2 ^^-1 or less than 
-(2^^-l)FLFXl will generate an error message. 



Result = Sign of argument * largest integer ^ ) argument |, 

IN. must be referenced by an . EXTD statement. 

This routine has an FCALL entry point, . INT . 
. INT must be referenced by an . EXTN statement. 
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Mixed 
Mode 



MAXl, MINI 



Purpose : 



Calling Sequence : 



To select the smallest (MINI) or the greatest (MAXl) member 
from a set of single precision real numbers, expressing the 
selection as a fixed point number. 

JSR @MA. 1 (or @MI. 1) 

N+1 (where N is a fixed point number equal to the number 

of members in the set being examined. ) 
FORTRAN ADDRESS of result 
FORTRAN ADDRESS of Rj 



Supporting Routines : 
Subroutine Size: 

Notes to User: 



FORTRAN ADDRESS of R^ 

(The result is a fixed point number stored at the FORTRAN 
ADDRESS of the result given in the calling sequence. ) 

FSAV, FRET; . FARG, FLFXl, FFLDl, FCLTl . 

Two page zero locations and 46 octal locations of normally 
relocatable memory. 

Accumulators, carry are restored upon exit. An error message 
is generated if the truncated real number exceeds 2-1 
or if it is less than -(2^^-l), 

JSR @XA. 1 is equivalent to JSR @MA. 1, and JSR @XI. 1 
is equivalent to JSR @MI. 1 . 

FCALL entry points are MAXl and MINI . 

MA. 1, MI. 1 , XA. 1, and XI. 1 must be referenced by an . EXTD 
statement. MAXl and MINI must be referenced by an . EXTN 
statement. 
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.INKl 



Mixed 
Mode 



Purpose : 
Calling Sequence : 

Supporting Routine: 
Subroutine Size: 

Notes to User: 



To obtain a pointer to the first frame below the top frame of the 
number stack. 

JSR @.NR1 

(Pointer is returned in AC0). 

NSP . 

One page zero location and five locations of normally 
relocatable memory. 

Original contents of accumulators and carry are lost. 
No error messages are generated. 

ACS loses FSP upon exit. 

A frame is understood to be a block of six consecutive 
locations on the number stack. 

. NRl must be referenced by an . EXTD statement. 
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Mixed 

Mode 



NR2 



Purpose : 

Calling Sequence : 

Supporting Routine: 
Subroutine Size: 

Notes to User: 



To obtain a pointer to the second frame below the top frame 
of the number stack, 

JSR @.NR2 

(Pointer is returned in AC0. ) 

NSP. 

One page zero location and five locations of normally 
relocatable memory. 

Original contents of accumulators and carry are lost. No 
error messages are generated. 

ACS loses FSP upon exit. 

A frame is vmderstood to be a block of six consecutive 
locations on the number stack. 

. NR2 must be referenced by an . EXTD statement. 



7-26 



.NR3 



Mixed 
Mode 



Purpose : 
Calling Sequence : 

Supporting Routine: 
Subroutine Size : 

Notes to User: 



To obtain a pointer to the third frame below the top frame 
of the number stack. 

JSR @.NR3 

(Pointer is returned in AC0. ) 

NSP . 

One page zero location and five locations of normally 
relocatable memory. 

Original contents of accumulators and carry are lost. No 
error messages are generated. 

ACS loses FSP upon exit. 

A frame is understood to be a block of six consecutive 
locations on the number stack. 

. NR3 must be referenced by an . EXTD statement. 
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Mode 



RIPWR 



Purpose : 
Calling Sequence : 



Supporting Routines : 



Subroutine Size 



and Timing: 



Notes to User: 



To raise a single precision real base to an integer 
power. 

FIPRl 

FORTRAN ADDRESS of the integer power 

FORTRAN ADDRESS of the real base 

(The real result is loaded onto the number stack. ) 

FSAV, FRET; FLIPl, FDVl, FMLl, FRSTl, FRLDl, 
.FARG, FFLDl, NSP . 

One page zero location and 50 octal locations of normally 
relocatable memory. 

Typical execution times on the NOVA with software 
multiply/divide are 1.45 ms where 1 = 0, and 3 ms + 

(I-l) *1.7mswherel > 1. Where I < -1, NOVA 
execution times are 5. 3 ms + (-1-1) * 1. 6 ms . 

Typical execution times on the SUPERNOVA with hardware 
multiply/ divide are 360 jus where 1 = 0, and 550 jus + (I-l) 
* 180 JUS where I > 1. Execution times where I < -1 
are correspondingly larger. 

Each of the above execution times includes the time 
required for one floating store operation. 

Original contents of accumulators and carry are restored 
upon exit from this routine. 

Error messages will be issued by supporting routines 
whenever appropriate. 

FIPRl must be referenced by an . EXTN statement. 

This routine has an FCALL entry point, RIPWR . 
RIPWR must be referenced by an . EXTN statement. 
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STRING/BYTE MANIPULATION ROUTINES 

COMP 8-3 

LDBT, STBT 8-4 

LOAD, STORE 8-5 

MOVE 8-6 

MOVEF 8-7 

MVBC 8-8 

MVBT 8-9 

MVF 8-10 

MVZ 8-11 



8-1 



COMP 



String/Byte 
Manipulation 



Purpose: 
Calling Sequence : 



To compare two character strings for identity. 

(String b37te pointers in AC0 and ACl). 

JSR @.COMP 

(Return is to the next sequential address if the strings 
match, and to one after the next sequential address if 






Supporting Routines: 
Subroutine Size: 

Notes to User: 



FSAV, FRET; . LDBT . 

One page zero location and 34 octal locations of normally 
relocatable memory. 

Accumulators, carry are restored upon exit; no error 
messages are generated. 

Each string must be terminated with a null byte. 

The FCALL entry is COMP . 

. COMP must be referenced by an . EXTD statement. 
COMP must be referenced by an . EXTN statement. 
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string /Byte 
Manipulatior 



LDBT, STBT 

Purpose: To load or store a byte by means of a byte pointer. 

Calling Sequence: 



Supporting Routine: 
Subroutine Size: 

Notes to User: 



(AC0 contains byte pointer) 
JSR @.LDBT 
(ACl contains the byte, right justified) 



(ACl contains word whose right b3?te is to be stored. 
AC0 contains bj^te pointer. ) 

JSR @.STBT 



.SV0 . 

Two page zero locations and 30 octal locations of 
normally relocatable memory. 

Accumulators, carry are lost except AC0; ACS contains 
FSP upon exit. No error messages are generated. 

Byte pointer is left unchanged upon exit. 

, LDBT and . STBT must be referenced by an . EXTD 
statement. 
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LOAD, STORE 



Itanipulation 



Purpose : 

Calling Sequences: 



To permit the loading or storing of any accumulator except 
ACS from or into any absolute address. 



TSR ,a.LD0 (. LDl, .LD2) 
Any absolute address 

(AC0 --or ACl, AC2 --is loaded with the contents of the 
absolute address. ) 



Supporting Routines: 



JSR @.ST0 (.STl, .ST2) 
Any absolute address 



(The contents of AC0 
absolute address. ) 



- or ACl, AC2 --is stored at the 



None. 



Subroutine Size: 



Notes to User: 



Six page zero locations and 17 octal locations of normally 
relocatable memory. 

This routine uses QSP for temporary storage, so the 
existence of at least one Fortran stack frame is required for 
the operation of this routine. 

The value of FSP contained in AC3 prior to the call is 
restored in ACS upon exit from the routine. 

No error messages are generated upon attempting to 
reference a non-existent location. 

The six above-named entries must be referenced by an 
. EXTD statement. 
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String/Byte 
Manipulation 



MOVE 



Purpose : 

Calling Sequences : 



To move all (MOVE) or part of (CMOVE) a byte string. 



Supporting Routines 



Subroutine Size: 



Notes to User: 



(AC0 contains the byte pointer to the beginning of the 
source string. ACl contains the byte pointer to the 
beginning of the destination string. The source byte 
string is terminated by an all zero byte. ) 

FCALL 
MOVE 

(ACl points to the null bjrte in the destination string. ) 



(AC0 contains the byte pointer to the beginning of the source 
string. ACl contains the byte pointer to the beginning of 
the destination string. AC2 contains the number of 
bytes which are to be moved.) 



FCALL 
CMOVE 

(ACl points to the last byte moved to the destination 
string. ) 



FSAV, FRET; . LDBT, . STBT . 

44 octal locations of normally relocatable memory. 

Accumulators and carry are restored upon exit from this 
routine. 

No error messages are generated. No check is made by 
CMOVE to determine if the value in AC2 exceeds the number 
of b5rt:es in the source string. The original source string 
remains unaltered in both move operations. Both MOVE and 
CMOVE must referenced by an . EXTN statement. 
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MOVEF 

Purpose : 
Calling Sequence : 



Supporting Routines: 
Subroutine Size: 

Notes to User: 



Striny/By te 
Manipulation 



To move a block of words. 

JSR @.MOVE 

Word Count 

FORTRAN ADDRESS of word block 

FORTRAN ADDRESS of word block destination 

.MAD, QSP, SP 

One page zero location and 23 octal locations of normally 
relocatable memory. 

Original states of accumulators and carry are lost. 

Upon completion of this routine, the word block is found 
both at its original location and at the destination location. 
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String/Byte 
Manipulation 



MVBC 

Purpose : 
Calling Sequence : 



To move a byte string. 

(Upon entry to this routine, accumulators contain the fol- 
lowing parameters : 

AC0, the byte pointer to the present byte string; 
ACl, the byte pointer to the destination of the string; 
AC2, the number of bytes in the string. ) 

JSR @.MVBC 



Supporting Routines: FSAV, FRET, FQRET; . LDBT, . STBT . 



Subroutine Size: 



Notes to User: 



Two page zero locations and 37 octal locations of normally 
relocatable memory are required for this routine. 

Accumulators and carry are restored upon exit from this 
routine. 



Bytes are packed left to right: |bYTE 1 | BYTE 2 

Bit Bit 7 Bit 8 Bit 15 



Byte pointer structure is as follows: 



Memory Address |B3^e Selector 



BitO 



Bit 14 



Bit 15 



(|2I = Left) 
(1 = Right) 



Upon exit from the routine, the byte string is found both at 
the specified destination and at its original location. 

. MVBT has an alternate entry point in this routine. . MVBC 
must be referenced by an . EXTD statement. 

This routine has a FCALL entry point MVBC. 
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MVRT 



String/Byte 
Manipulation 



Purpose: 
Calling Sequence : 



To move a byte string. 

(Upon entry to this routine, accumulators contain the 
following parameters: 

AC0, byte pointer to the present byte string; 
ACl, byte pointer to the destination of the string; 
AC2, terminal character in the byte string. ) 

JSR @.MVBT 



Supporting Routines: 
Subroutine Size: 

Notes to User: 



FSAV, FRET, FQRET; . LDBT, . STBT . 

Two page zero locations and 37 octal locations of normally 
relocatable memory. 

Accumulators and carry are restored upon exit from this 
routine. 

Upon completion of this routine, the byte string is found 
both at the specified destination and at its original 
location. 

,MVBC has an alternate entry point in this routine. 

. MVBT must be referenced by an . EXTD statement. 

This routine has an FCALL entry point, MVBT . 
MVBT must be referenced by an . EXTN statement. 



8-9 



String/Byte 
Manipulation 



MVF 



Purpose: 
Calling Sequence: 



To move blocks of whole words within core memory. 

(Beginning address of the word block to be moved is 
in AC0; the destination address is in ACl, the 
number of words in the block is specified as a 
positive integer in AC2. ) 

JSR @. MVF 



Supporting Routines: 



Subroutine Size: 



FSAV, FQRET ; none . 

One page zero location and 16 octal locations of 
normally relocatable memory are required. 



Notes to User: 



Accumulators and cariy are restored upon exit. 
No error messages are generated. 
The original word block remains imaltered. 
. MVF must be referenced by an . EXTD statement. 

This routine has an FCALL entry point, MVF . 
MVF must be referenced by an . EXTN statement. 



8-10 



MVZ 

Purpose: 
Calling Sequence : 



f^i-.yi.vin/'R-ij-ho 

Manipulatior 



To clear blocks of memory words. 

(BegiBning address of block in ACl, number of words 
in the block to be zeroed is in AC0. ) 

JSR @. MVZ 



Supporting Routines: 
Subroutine Size : 

Notes to User: 



FSAV, FQRET ; none . 

One page zero location and 13 octal locations of 
normally relocatable memory are required for this 
routine. 

Accimiulators and carry are restored upon exit from 
this routine. 

No error messages are generated. 

. MVZ must be referenced by an . EXTD statement. 

This routine has an FCALL entry point, MVZ . 
MVZ must be referenced by an . EXTN statement. 
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POINTERS/DISPLACEMENTS 

. FLSP 9-3 

FPTRS Module 9-4 

FPZERO Module 9-5 
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Pointers/ 
Displaoements 



Dummy Module 
Purpose: 



Program: 



The dummy module, found only in the RDOS FORTRAN 
library, defines dummy values for three FORTRAN run tim.e 
flags so that they will never be listed at load time as being 
undefined. The three flags are: QTCK, FLSP, and . FLSZ . 

. TITLE DUMMY 

PNTT nTrV T7TCD TTTO^ 

QTCK = -I 
FLSP = -1 
.FLSZ = -1 

.END 
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fo^ntsrs/ 
Displacementi 



.FLSP 



Purpose : To enable . I to determine whether or not real or complex 

arithmetic is used, so that it may decide whether or not to 
allocate core space for the number stack. 

Program ; . NREL 

. FLSP: FLSP 
.END 

Notes to User : . FLSP must be specified by an . EXTN statement. 

. FLSP will always be loaded along with the run time initial- 
ization program, . 1 . If real or complex arithmetic is used 
by the main program, the FPTRS module will have been 
loaded and resolved, assigning a location to the number stack 
pointer which is equivalent to FLSP. 

. FLSP contains the default value 000377 at load time unless 



the FPTRS module has been loaded, in which case it will 
contain the resolved value for FLSP, which is some other ZREL 
address. . I will examine . FLSP to see whether it contains 
377 or other ZREL address, and either allocate space 
for the number stack or not depending upon the result 
of this test. 
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Pointers/ 

Displaaementi 



Stack Pointers for Real and Complex Arithmetic (FPTRS module) 



Purpose: To define a page zero pointer, NSP (or FLSP), to the 

current top of the number stack. This position will 
also be used by . I at initialization time to determine 
whether or not arithmetic routines have been used and 
thus whether the number stack should be allocated. 

Program: . ZREL 

FLSP: 

NSP= FLSP 

.END 

Notes to User: NSP and FLSP are synonymous labels for the page 

zero location containing a pointer to the current top 
of the number stack. This module will be loaded only 
if real arithmetic routines are called for by . MAIN. 

FLSP is the label of a ZREL location other than 377 „. 
This label is tested by . I (see . FLSP, "Notes to User") 
^^ which then either allocates a number stack or not, 
depending on the result of this test. 

FLSP and NSP must both be referenced by an . EXTD 
statement. 
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Pointers/ 
Displaaerr.enti 



Run Time Page Zero Locations (FPZERO module) 



Purpose : 



Definitions : 



Note to User: 



These page zero locations are reserved for use by 
run time routines. 



SP 



.NDSP 



A pointer to the Return Address Stack, 
which is a stack located after the . I stack, 
and whose size is determined b^ . I . 
Utilized by routines which do not use any of 
the FSAV family for storage of return addresses 
for exiting subroutines, and for miscell- 
aneous storage. 

Pointer to one greater than the topmost 
possible location in the number stack. 



SUCOM - Start of unlabeled common. 

. OVFL - A flag used to indicate whether or not overflow 
(or underflow) has occurred, and therefore 
whether error messages should be issued. If 
all zero, no overflow has occurred; if set to 
a one, overflow has occurred. 

APSE - Indication of the end (top most memory 

location) of available run time stack area. 

. lOCAT - Pointer to the I/O Channel Assignment Table's 
starting address. 

. SOSW - Flag indicating whether or not the Stand-Alone 
Operating System has been loaded. If non- 
zero, SOS was loaded. 

. SV0 - Return save for zero level routines like MPY. 

QSP - Pointer to FAC2. 

Each of the above-named locations must be referenced 
by an . EXTD statement. Under RDOS , TVR is defined 
to be the starting address of the series of page zero 
locations. 
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LINKAGE AND INITIALIZATION ROUTINES 

CPYARG, CPYLS 10-3 

FARG 10-5 

FARG0 10-6 

FCALL 10-7 

FQRET 10-9 

FRCAL 10-10 

FRET 10-12 

FRGLD 10-13 

FSAV 10-14 

.1 10-16 

MAD, MADO 10-18 
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Linkage ^Init 
ialization 



CPYARG, CPYLS 



Purpose ; 



To transfer effective addresses of a caller's argument list 
to its called subroutines's stack. 






SUBR 
N 

FADDR 
FADDR 



;N=NUMBER OF ARGUMENTS IN LIST 
;FORTRAN ADDRESSES 



SUBR: 



(AC0 contains the number of arguments to be passed. ) 



SUBR: 



JSR @. CPYA 



FCALL 

SUBR 

N 

FADDR 

FADDR 



JSR @. CFYL 



ADDRESS OF CALLER'S 
ARGUMENTS ARE NOW 
ON SUBR STACK. 



;N=NUMBER OF ARGUMENTS IN LIST 



ADDRESSES OF CALLER'S 
ARGUMENTS ARE NOW ON 
SUBR STACK. 



Supporting Routines: FSAV, FRET; .MADO 



Subroutine Size: 



Two page zero locations and 42 octal locations of normally 
relocatable memory. 
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ializati-on 



CPYARG, CPYLS (Continued) 

Notes to User: This routine is more generalized than FARG ; accumulators 

and carry are preserved upon exit. 

CPYLS updates the caller's return address (stored in 
FRTN) to the next sequential instruction following 
the caller. 

. CPYL and . CPYA must be referenced by an . EXTD 
statement. 

CPYARG has an FCALL entry point, CPYAR . 
CPYAR must be referenced by an . EXTN statement. 
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ialization 



FARG 



Purpose : 



Calline Senuence* 



To fetch a called siibroutine's argument addresses, when 
these are stored as FORTRAN ADDRESSES immediately 
following the caller. 

fetched. ) 



JSR @.FARG 

(Caller's argument addiesses are stored on current stack. 
Caller's FRTN is updated. ) 



Supporting Routine: SP. 



Subroutine Size: 



Notes to User: 



One page zero location and 34 octal locations of normally 
relocatable memory are required. 

Caller's AC0, ACl contents are lost. . FARG must be referenced 

by an . EXTD statement. 

The following example illustrates the use of . FARG: 



AL. 00: 

. MAIN: 

. CALl: 



ZREL 
A.LG10-2 

nrelT 



JSR @AL.G0 ;TH1S IS THE CALLING 

;R0UTINE 
FADDR of ARGUMENT 



,ALG10: 



.CAL2 



FSAV 

3 

SUBZL 



JSR 



0,0 



@. FARG 



PUT 1 IN AC0, SINCE 
THERE IS ONLY ONE 
ARGUMENT FOLLOWING 
THE MAIN CALLER. 
;ARGUMENT ADDRESS IS 
STORED ON ALG10'S STACK. 



10-5 



Linkage, Init- 
ialization 



FARG0 



Purpose : 



Calling Sequences : 



Supporting Routine: 
Subroutine Size; 

Notes to User: 



To calculate the effective address of an argument on the 
current stack frame (. FRG)3) or the next most current 
stack frame (. FRGl) given its FORTRAN ADDRESS pointed 
to by AC2. 

(FORTRAN ADDRESS is pointed to by AC2. ) 

JSR @. FRG0 (or . FRGl) 

(The address is returned in AC0. ) 

SP. 

Two page zero locations and 24 octal locations of 
normally relocatable memory are required. 

Original states of accumulators, carry are lost. 

This routine avoids the need for reserving stack storage, 
and is also useful when an argument list is variable 
in length and contains single word arguments. 

. FRG0 and . FRGl must be referenced by an . EXTD 
statement. 
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Linkage, Init 
ialization 



FQRET 



Purpose : 



Calling Sequence: 



SUBR: 



To provide return from a called subroutine which neither 
requires temporary storage nor calls other subroutines. 



FSAV 

-1 

LDA 0, MNE, 



FQRET 



;N0 TEMP STORAGE 



;N0 FURTHER 
;SUBROUT[NE CALLS 



Supporting Routines: 
Subroutine Size : 

Notes to User: 



. I; AFSE, . RTE0 . 

Five page zero locations and 140 octal locations of 
normally relocatable memory are required. 

All subroutines which neither call others nor require 
temporaiy storage (i. e. , all subroutines lacking stack 
frames) must use FQRET for return to the caller. 

FQRET must be specified in an . EXTN statement. 

Caller's accumulators, original state of carry are 
restored upon exit from the called subroutine. 

FCALL, FRCAL, FSAV, and FRET have alternate 
entry points in this routine. 
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Linkage, Init- 
ialization- 



FRCAL 



Purpose : 
Calling Sequence : 



To call a subroutine whose address is containeo in AC2, 
and create a stack for this subroutine if needed. 



SUBR: 



.ZREL 
SUBR 



.NREL 

LDA 

FRCAL 



2, .SUBR 



;ZERO STACK LENGTH WORD 



SUBR: 



Supporting Routines: 
Subroutine Size: 

Notes to User: 



.I;AFSE, .RTE0 . 

Five page zero locations and 140 octal locations of 
normally relocatable memory ate required. 

FRCAL creates a new stack for the called routine (if needed) 
and allocates temporary storage on the new stack if this is 
required. The stack length word immediately preceding 
the called routine determines whether or not a stack will 
be created and whether temporaries on the stack will be 
allocated. The following summarizes the possible stack 
length words: 

SLW = -1 No stack, no temporaries will be created 
for the called routine. 

SLW = A stack will be created to permit deeper 

subroutine calls; no temporary storage 
is allocated on this stack. 

SLW = +1 A stack will be created with I temporary storage 
locations allocated. 

Upon entry to SUBR, AC0 ACl and carry will be the same 
as the calling program's; AC2 will contain the calling program's 
FSP,and ACS will contain the called program's FSP. 
10-10 



utni\ 3g&f Ini t- 
ialization 



fR(jAL (Continued) 



A fatal error message is generated if insufficient core 
storage is available for the creation of the called routine's 
stack. 

FCALL, FSAV, FRET, and FQRET have alternate entry 
points in this routine. 

Caller's accumulators (except ACS) and original stace of 
carry will be restored by FRET or FQRET upon return 
to the nejct sequential instruction following the call, and 
AC3 will contain the caller's FSP. 

FRCALmustbe specified in an . EXTN statement. 
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Linkage, Init 
iatization 



FRET 



Purpose: 



Calling Sequence: 



To restore a caller's accumulators and state of Carry upon 
exit from the called subroutine, and return to the next 
instruction following the caller. 

.ZREL 
. SUBR: SUBR-2 

.NREL 

JSR @. SUBR 
NEXT: MOV 1, 1 



FSAV 
5 
SUBR: LDA 0, 0, 2 



FRET ;RESTORE CALLER'S ACCUMULATOR'S 

;RETURN TO NEXT 



Supporting Routines: 
Subroutine Size : 

Notes to User: 



.1; AFSE, .RTE0 . 

Five page zero locations and 140 octal locations of normally 
relocatable memory are required. 

FRET is equivalent to JSR @. FRET . FRET must be 
referenced by an . EXTN statement, . FRET by an . EXTD statement. 

FRET also restores caller FSP, loads it into ACS before 
return. 

FRCAL, FSAV, FCALL, FQRET have alternate entry 
points in this routine. 
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'■RGLD 



uzriKoge^ Init- 
ialization 



Purpose : 
Calling Sequence : 



Supporting Routines : 



To fetch the contents of the FORTRAN ADDRESS pointed 
to by AC2. 

(FORTRAN ADDRESS is pointed to by AC2. ) 

JSR @.FRGLD 

(Result is returned in AC0 . ) 

none; ,FRG1, SP . 



Subroutine Size: 



Notes to User: 



One page zero location and 10 octal locations of normally 
relocatable memory are required. 

Original states of accumulators and carry are lost. 

If the FORTRAN ADDRESS is a stack frame displacement, 
it is resolved with respect to the next-most- current stack 
frame, the caller's caller's frame. 

. FRGLD must be referenced by an . EXTD statement. 
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Linkage , Init- 
ialization 



FSAV 



Purpose : 



Calling Sequence : 



To save a caller's accumulators and state of carry upon a 
subroutine page zero call, create a new stack frame with tempo- 
rary storage allocated (if needed), and check for stack overflow. 



FSAV 
I 



(I is a stack length word; see below and Notes to User) . 

.ZREL 
.SUBR: SUBR-2 
. NREL 



NSI: 



JSR @. SUBR 
MOV 2,3 



;NEXT SEQUENTIAL INSTRUCTION 
; FOLLOWING RETURN FROM SUBR 



FSAV 
SLW: 5 
SUBR: LDA 0, 0, 2 



SAVE ACCUMULATORS, CARRY 
TYPICAL STACK LENGTH WORD 
FIRST TRUE CALLED INSTRUCTION 



Supporting Routines: 
Subroutine Size: 

Notes to User: 



.1; AFSE, .RTE0 . 

Five page zero locations and 140 octal locations of normally 
relocatable memory are required. 

The stack length word (SLW) following FSAV can be equal 
to either -1, 0, or any positive integer I. The following 
summarizes the meanings of these stack length words: 



SLW= -1 



SLW= 



No stack, no temporaries will be created 
for the called routine; no further calls 
are made from the called routine. 

A stack without temporary storage 
allocated is created for the called routine. 
The called routine calls some other 
routine. 
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raAV (continued) 



uznKo.ge, init- 
ialization 



SLW= +1 A stack will be created with I temporary 

locations allocated for use by the called 
routine; the called routme may call 
other routines. 

Upon entry to SUBR, AC0, ACl and carry will be the same as 
the calling programs' s; AC2 will co-^tain the calling 
program's FSP and ACS will contain the called program's FSP. 

A fatal error message is generated if insufficent core 
storage is available for the creation of the called subroutine's 
stack. 

FCALL, FRCAL, FRET and FQRET have alternate 
entry points in this routine. 

Caller's accumulators (except AC3) and original state 
of carry will be restored upon return to the next sequential 
instruction following the subroutine call by FRET or FQRET. 
ACS will contain the caller's FSP. 

JSR @. FSAV is equivalent to FSAV. FSAV must be 
referenced by an . EXTN statement, . FSAV by an . EXTD 
statement. 
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Linkage^ Init- 
ialization 

A 



Purpose: 



Calling Sequence : 



To allocate number and SP stacks, and blank and unlabeled 
common for FORTRAN compiled program, initialize the 
Run Time Stack, and to construct pointers to them in a SOS, 
DOS or single task RDOS environment. (For a description 
of the multitask real time initializer, also labeled . I, see 
Appendix E. ) 

Program control is not transferred to . 1 in the manner that 
all other library routines receive control. Instead of being 
called, . I simply receives program control when the loaded 
program is started. This is due to the fact that the . END 
statement in this routine has the argument . I, whereas each 
other library routine is terminated by a simple . END 
statement. 



Supporting Routines: 
Subroutine Size: 



Notes to User: 



Upon completion of the initialization procedure, .1 issues an 
FCALL to the assembly language routine having the entry 
. MAIN. At the completion of , MAIN, it transfers 
control to the CLI by calling STOP under DOS. Under RDOS, 
. 1 calls STOP which then transfers control back to . I after 
outputting STOP 999 ^ on the console. The system performs 
an effective halt, JMP. , under SOS. For more information 
concerning the use of . I by an assembly language routine, 
see Appendix B. 

CATIN, FCALL, . FLSP, .FLSZ, .MAIN;. STOP, .lOCAT, 
SP, NDSP, .WRCH, AFSE, SUCOM . 

144 octal locations of normally relocatable memory under 
DOS, 153 locations under RDOS. A 60 octal word temporary 
run time stack is also reserved for . I, and is used by the 
operating system. 

The following describes the functions performed by . I in 
the sequence that they occur. 

A system call, . SYSI, is issued to initialize system I/O 
under SOS (this is a no-op to DOS), and then a system reset 
(. RESET) is issued. Forty octal locations are then allo- 
cated for the SP stack immediately following the last loaded 
run time subroutine. A -1 is placed in the first location 
of the SP stack, and a pointer to the next location in the stack is 
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. I (Continued) 

Notes to User : 
(con'd) 



ij%nKage, imt 
iatization 



created. The SP stack is nothing more than a series of 
temporary locations for use by subroutines which have no 
stack set aside for their use. 

Next, the number stack pointer is defined and number stack 
storage is allocated if floating point arithmetic is used in 
. MAIN, the FORTRAN program which is about to be run. 
This storage will be 630 octal words long or 30 octal plus 
twice whatever a user has specified in a . FLSZ statement. 
The default value creates enough room for 68 single precision 
real numbers (34 double precision real or single precision 
complex numbers, or 17 double precision complex numbers). 
After the allocation of the number stack (or after the 
allocation of the SP stack if no number stack is called for ), 
a pointer to the beginning of the run time stack is defined, and 
. I's stack with 60 octal temporary storage locations is allocated; 
the Channel Assignment Table will be placed in these locations. 

Next, a check is made to see whether or not there is room 
enough for blank common allocation, and blank common is 
allocated at the high end of memory. . NMAX is now updated 
with the system call .MEMI; the Channel Assignment Table 
is initialized and placed in the . I stack with an FCALL to 
CATIN. 

After this, the main program, . MAIN, is called and upon 
its coinpietion return is made to . I which transfers control 
to the CLI by calling STOP under DOS. Under RDOS, . I calls 
STOP which then transfers control back to , I after outputting 
STOP 999 ^on the console. The system performs an effective 
halt, JMP. , under SOS. 

Three additional entries exist in the RDOS single task . I 
which return control to either the CLI or to the debugger- 
FERTN, FERTl, and FERT(3. FERTN transfers control to 
the CLI via the call . SYSTM, . RTN . FERT|3 transfers 
control to the CLI via the call . SYSTM, . ERTN . FERTl 
transfers control to the debugger. 
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MAD, MADO 



Purpose: 



Calling Sequences : 



To resolve an effective address from a given FORTRAN ADDRESS. 



(Input FORTRAN ADDRESS in AC2; current (i. e. , caller's ) 
FSP is base used in calculation). 

JSR @. MAD 

(AC2 contains effective address upon exit; ACS does not 
contain caller's FSP on exit. ) 



Supporting Routines : 
Subroutine Size: 

Notes to User: 



(Input FORTRAN ADDRESS in AC2; base FSP in ACl. ) 

JSR @. MADO 

(AC2 contains effective address upon exit; AC3 does not 
contain caller's FSP on exit. ) 



None. 

Two page zero locations and 25 octal locations of normally 
relocatable memory. 

Accumulators, carry are not restored upon exit. No 
error messages are generated. 

. MAD and . MADO must be referenced by . EXTD 
statements. 
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INPUT/OUTPUT ROUTINES 

CATIN, IMIO 11-3 

CHSAV, CHRST 11-6 

COUT 11-7 

DELETE 11-8 

FCEOS ............. . ....... 11-9 

FFILE 11-10 

FOPEN 11-11 

FREAD 11-12 

FSEEK 11-24 

RDFLD, RDFCH 11-25 

READL, WRITL 11-27 

WRCH 11-29 
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CATIN, IMIO 




Purpose : 



Cflllina Sp>nii<=>n<^o. 



To initialize the I/O Channel Assignment Table. This 
table lists the default assignments of the logical 
FORTRAN channels, and is used to maintain information 
about new assignments made by calls to FOPEN/FCLOS. 

{AC0 contains the starting address of the I/O Channel 
Assignment Table. ) 

FCALL 
CATIN 

(The three word entries for each of the 16 FORTRAN 
logical channels are set to the following states: 

WORD 1, Closed ASCII file 

WORD 2, -1 or word address of default file 

name 
WORD 3, Random Record Length 0. ) 



Supporting Routines: 
Subroutine Size: 

Notes to User: 



FQRET, . SOS; . lOCAT, . SOSW . 



110 octal locations of normally relocatable memory for 
DOS; 105 locations for RDOS, 

Original contents of accumulators and carry are restored 
upon exit. CATIN and IMIO must be referenced by an 
. EXTD statement. 

The Stand-alone Operating System will be force loaded. 

There are 16 entries in the I/O Channel Assignment 
Table, one for each FORTRAN logical channel. The 
following table lists the FORTRAN channels and their 
default assignments where applicable: 

Logical Channel Number Default Assignment 




1 
2 



none 
none 
none 
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CATIN, IMIO (Continued) 



TYPICAL WordO 

I/O CATALOGUE Word 1 
ENTRY Word 2 



Logical Channel Number Default Assignment 



3 
4 

5 
6 
7 
8 
9 

10 
11 
12 
13 

14 

15 



none 

none 

none 

Plotter ($PLT) 

none 

TTY punch ($TTP) 

Card Reader ($CDR) 

TTY Printer ($TTO) 

TTY Keyboard ($TTI) 

Line Printer ($LPT) 

High Speed Paper Tape 

Reader ($PTR) 
High Speed Paper Tape 

Punch ($PTP) 
TTY Reader ($TTR) 



A table labeled IMIO (and given as an entry along with 
CATIN) is located in the CATIN module. IMIO consists 
of a block of 16 words with a structure identical to the 
above table. Table entries which have default 
assignments contain the absolute CATIN module 
address of a byte string consisting of the appropriate 
four letter device name ($PLT, $TTR, etc. ) . 

The I/O Channel Assignment Table is built in . I 's stack 
at initialization time. This table consists of a block 
of 16 sequential three word entries, one entry for each 
FORTRAN logical channel with default assignments 
given in IMIO. The structure of each three word entry 
is as follows: 



bit 



bit 1 



bits 10 thru 15 



OPEN switch! BINARY/ASCII switch|##i:g^|DOS I/O Channel No 



FILE NAME POINTER 



RECORD LENGTH OF RANDOM RECORDS 



The OPEN switch is set to a zero only if the referenced 

channel has been opened. The BINARY/ ASCII switch 

is set to a zero only if ASCII mode has been selected. 

The DOS I/O CHANNEL field contains the DOS I/O 

channel number for this FORTRAN logical channel. 

(See the DOS or RDOS User's Manual, Chapter 4, "Command 

Word Format. ") This field has meaning only if the 
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CATIN. IMIO CConfiniipH^ 



logical channel is open. 

The FILE NAME POINTER may be one of two things. 
If the file is closed, the pointer is simply the word 
address of a four letter file name or -1. If the file 
is open, the pointer is a byte pointer to some file 
name text string. 

The RECORD LENGTH OF RANDOM RECORDS is 
f if the file has not been opened as a random file. 
Otherwise it is the integer record length in bytes of 
random records in the file. 

Default values for each three word entry are given 
in the Calling Sequence description. 
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Input/ 
Output 



CHSAV, CHRST 



Purpose : 



Calling Sequences : 



To permit the rereading or rewriting of FORTRAN records on 
disk. The method is to first save the status of a FORTRAN 
channel (CHSAV), issue any number of reads or writes, and 
then restore the original status of the channel (CHRST). 
Records processed between the status save and status restore 
operations may then be reread or rewritten. 



(An integer array has been created with a two word block allocated 
for storage of the channel status information. ) 

FCALL 

CHSAV 

2 

FORTRAN ADDRESS of logical channel number 

FORTRAN ADDRESS of first word in the two word block 



(CHSAV has been called previously. ) 

FCALL 
CHRST 
2 

FORTRAN ADDRESS of logical channel number 
FORTRAN ADDRESS of the first word in the two word block 
containing previously saved channel status data. 



Supporting Routines: FRET; . CFYL, . RTER, . lOCAT 
Subroutine Size: 



63 octal locations of normally relocatable memory for DOS; 
62 locations for RDOS. 



Notes to User: 



Accumulators and carry are restored upon exit. Both routines will 
issue a non-fatal error message if the specified channel has not 
been opened. CHRST will also issue a non-fatal error message 
if an attempt is made to restore channel status information 
which was not previously saved. The status of more than one 
channel may be saved in the same array. For example, an array 
declared as 1(2, 100) can be used to save up to 100 blocks of 
channel status information. 
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COUT 



Out-put 



Purpose : 

Calling Sequences: 



To input or output a character on a teletype. 



(AC0 contains the character to be output, right justified) 

JSR @. COUT 

(The c haracter is output to a TTY printer/punch) 



JSR @. CIN 

(AC0 contains a character input from a TTY reader/keyboard). 



Supporting Routines : 
Subroutine Size: 

Notes to User: 



FSAV, FQRET ; none. 

Two page zero locations and 23 octal locations of normally 
relocatable memory. 

If the character output was a carriage return, a line feed 
will also be output. 

This routine can only be used with either the stand alone or 

rliaV onp-rat-inrr <3\ra1-(=>-mo 

No error messages are generated by this routine; 
accumulators, state of carry will be restored. 

Characters input via . CIN will also be echoed on the TTY 
printer/punch, .COUT and . CIN must be referenced 
by . EXTD statements. 

. COUT has an FCALL entry, COUT. COUT must be 
referenced by an . EXTN statement. . CIN has an FCALL 
entry point, CIN . CIN must be referenced by an , EXTN 
statement. 
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Input/ 
Output 



DELETE 



Purpose : 
Calling Sequence : 



To delete a disk file. 

FCALL 

DELET 

Integer 1 

FORTRAN ADDRESS of file name 



Supporting Routines: FCALL, FCLOS, FRET; . COMP, .CPYL, . IOC AT, . RTER 



Subroutine Size: 



Notes to User: 



Forty-three locations of normally relocatable memory are 
required under DOS, 100 under RDOS. 

The file name is an ASCII byte string. This routine makes 
a system call, 

.DELET 

Before issuing the .DELET command, a check is made to 
determine whether or not the file has been closed. If the 
file is open on one channel, it will be closed and error mes- 
sage FEOPN will be issued. If the file is open on more than 
one channel, the file is closed on all these channels. 

If there is no disk file directory entry corresponding to the 
file name byte string, the routine simply returns control to 
the caller; no error message is issued. 

Original contents of accumulators and carry are restored. 

Good practice dictates the use of DELET in program init- 
ialization to preclude the attempted writing of an already 
existing file. 

DELET must be referenced by an . EXTN statement. 
DFILW and RLSE have alternate entry points in this routine. 
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FCLOS 




Purpose : 
Calling Sequence : 



To free a FORTRAN logical channel and close the file 
associated with that channel. 

FCALL 

FCLOS 

Integer 1 

FORTRAN ADDRESS of logical channel number 

(A call can now be made to FOPEN requesting the 
free channel .) 



Supporting Routines: 
Subroutine Size: 
Notes to User: 



FSAV, FRET, IMIO; . lOCAT, . RTER, . CPYL, . SOSW . 

41 octal NREL locations under DOS, 57 locations under RDOS. 

The logical channel number is an integer constant with a 
value between and 15iq. 

Original accumulator's contents , carry are restored 
upon exit from this routine. 

FCLOS must be specified in an . EXTN statement. 

To close a channel under RDOS CLOSE may also be used 
(see Appendix E). 
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FFILE 

Purpose : 
Calling Sequence : 



Supporting Routines 
Subroutine Size: 
Notes to User: 



To position a sequential file which has been assigned 
a FORTRAN Channel Number. 

JSR @. FFIL 

File Positioning Code 

FORTRAN ADDRESS of FORTRAN Channel Number 

(File Positioning Codes are: 1, position the file at its 
initial record; 2, close the file associated with 
this channel. ) 

FSAV, FRET, FCLOS, FSEEK, FCALL; . CPYARG, 
. RTER, . lOCAT, . FCALL . 

One page zero location and 76 octal locations of normally 
relocatable memory. 

Accumulators and carry are restored upon exit from this 
routine. 

This routine must be supported by the disk operating system. 

1/0 error conditions and unopened files will cause error 
messages to be generated. 

. FFIL must be referenced by an . EXTD statement. 

This routine has an FCALL entry point, FFIL . 
FFIL must be referenced by an . EXTN statement. 
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FOPEN 



Input/ 
Output 



Purpose : 
Calling Sequence : 






Subroutine Size: 



Notes to User: 



To open a FORTRAN channel, 

JSR @. FOPEN 

Integer number of arguments to follow - - 2 through 4 possible, 

FORTRAN ADDRESS of logical channel number, 

FORTRAN ADDRESS of file name 

optional FORTPJ^N ADDFvESS of binar" s'^cifier 

optional FORTRAN ADDRESS of random record byte length 

(The specified channel is now assigned to the named file, ) 

"CCA IT" "CDrrnn. OT^rrp opvt o/^oiir Tr\r^ \ rr^ 

i. tJlx V , J. XVJJ, A , . i.v i JJ-XV, . \_il 1 J_i» . ovJovv , . ivJV-ji-i. 1 , 

One page zero location and 141 octal locations of normally 
relocatable memory under DOS; one page zero location and 
162 NREL locations under RDOS. 

Logical channel numbers are represented by integer constants 
with values from through 15 ^. 

The file name is an ASCII byte string terminated by a null 
byte. Likewise, the binary specifier is a single word 
ASCII byte string consisting of an ASCII B, left justified, 
followed by a null byte. If a binary specifier is given, the 
named file is opened with all particular device characteristics 
inhibited, e. o-. , such functions as a rubout character 
following a tab character output by a paper tape punch. 

The random record length parameter, given only when random 
devices are selected, is an integer specifying the random 
record length in bytes. If the file does not exist, a file is 
created and then opened. This file is organized sequentially 
under DOS, randomly under RDOS. 

This routine must be supported by either a disk or stand- 
alone operating system. Accumulators and carry are restored 
upon exit from this routine. The FCALL entry to this routine 
is FOPEN. . FOPEN must be referenced by an . EXTD statement; 
FOPEN must be referenced by an . EXTN statement. 
Random access is permitted only under a disk supported 
operating system. 



This routine has an FCALL entry point, FOPEN. 
must be referenced by an . EXTN statement. 



FOPEN 
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Input/ 
Output 



FREAD, FWRIT 



Purpose : 



Calling Sequence : 



To perform formatted or free form FORTRAN input 
(. FREAD) or output(. FWRIT) of ASCII data, or to 
perform FORTRAN input (. BRD) or output (, BWR) 
of binary data. 



(Binary data is to be read. ) 

JSR @. BRD 

FORTRAN ADDRESS of the logical channel number 



ELEMENT DESCRIPTOR SEQUENCE(s) (see Notes to User ) 

5 



(Binary data is to be written. ) 

JSR @. BWR 

FORTRAN ADDRESS of the logical channel number 



ELEMENT DESCRIPTOR SEQUENCE(s) (see Notes to User) 

5 



(ASCII data is to be read or written in free format. ) 

JSR @. FREAD (or @. FWRIT) 

FORTRAN ADDRESS of the logical channel number 



ELEMENT DESCRIPTOR SEQUENCE(s) (see Notes to User ) 

5 
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T7D D A r^ 



v K 



rnn //-i - 



, Lvtixii v»^unmiuea) 



(Formatted ASCII data is to be read or written. ) 

JSR @.FREAD (or@.FWRIT) 
FORTRAN ADDRESS of the logical channel number 
FORTRAN ADDRESS of the beginning of the format 
statement text string. 

ELEMENT DESCRIPTOR SEOUENCR^^?^ (<^Pf^ Nnt^^s tn J^^er■\ 
5 ^ ^ 



Supporting Routines: 



Subroutine Size; 



Notes to User: 



FSAV. FRET, MPY. DVD; .WRTS. .REDS, .ALLOC, .THREAD 
.FRGl, .FRGLD. . READL, .WRITL, .RDFCH, . RTER, 
• RDFLD, .STBT, . LDBT, .MVBC, .ARYSZ, . FSBR, .WRCH, 
SP, . SV0. (FERT0 is also used under RDOS. ) 

Four page zero locations and 3665 octal locations 
of normally relocatable memory. This module also 
has the unusually large run time stack frame size 
of 256 octal locations including header. 

Contents of accumulators and carry are restored upon 
exit from this routine. 



. FREAD, . FWRl, . BRD, and . BWR must be referenced 
by an . EXTD statement. 

If the contents of the first word in the format text string 
(see formatted I/O) are 002401, then the first four bytes 
in this string are ignored. This permits FREAD to be used 
by the FORTRAN compiler, which always precedes the 
format text string with JMP @.+l . JMP @.+l assembles 
to 002401. 



The ELEMENT DESCRIPTOR SEQUENCES describe 

in detail the nature of each data type in the list of elements 

to be input or output. Each SEQUENCE is in reality 

a set of eight possible calling sequences. One sequence 

is selected to describe each data element in the 

input/output list. 

11-13 



Input/ 
Output 



FREAD, FWRIT (Continued) 



Thus the FORTRAN statement: 

WRITE (10) "REAL RESULT IS', X 

generates a call to . FWRIT with two ELEMENT DESCRIPTOR 
SEQUENCES. One is sequence 6 for the outputting of 
the text string 'REAL RESULT IS';the other is sequence 
to output the real variable X. 

The first word of each ELEMENT DESCRIPTOR 
SEQUENCE is an integer tag, labeling the type of 
sequence which is to follow. The following list 
summarizes the integers and their corresponding 
sequences. 

Integer Data Element Type 






Variable 


1 

2 
3 


Array Element 

Array 

Left Parenthesis 


4 
6 

7 


End of loop Right Parenthesis 

String 

End of file address 


8 


Error return address 



Integer 5 is used as a flag to terminate the entire 
calling sequence. 

Following are the detailed ELEMENT DESCRIPTOR 
SEQUENCE parameters for each data element type, 
with accompanying example FORTRAN statements 
which generate them. Combining the appropriate 
ELEMENT DESCRIPTOR SEQUENCE with one of the Calling 
Sequences given above yields a complete FORTRAN 
input/output calling sequence. 

Variable Data Element Sequence 



Integer variable type (see below) 

FORTRAN ADDRESS of variable 
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Input/ 
Output 



r?"rj U A T^ TT'-VI ; T\ - 



ci\t^^u, r\\s\ii (L^onunuea) 



FORTRAN Statement 

READ (11,1) TEST 

FORTRAN Object Code 

JSR @. FREA 

.CI 

L2. 


2 
V.+0 ;TEST 

5 



The integer variable type is an integer, 1 through 5, 
which specifies the type of variable in the I/O list. 
The following variable types correspond to integers 1 
through 5 in the following fashion: 



1 
2 
3 
4 
5 



Integer, logical, alphabetic/hollerith 

SPFL 

DPFL 

SPCX 

DPCX 



Thus the code generated by 

READ (11,1) TEST 

yields the following complete call to FREAD: 



FORTRAN ADDRESS of 

Logical Channel Number_ 

FORTRAN ADDRESS of 

Format Statement Text 

String 

Variable ELEMENT 

DESCRIPTOR 

SEQUENCE 

Terminator 



JSR 
.CI 

L2. 




< 2 
V.+0 



@. FREA 



The second ELEMENT DESCRIPTOR SEQUENCE 
describes an Array Element in the I/O list. 
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Input/ 
Output 



FREAD, FWRIT (Continued) 



Array Element Sequence 

1 

N (see below) 

FORTRAN ADDRESS of Three Word Specifier 



FORTRAN ADDRESS of Subscript 1 



FORTRAN ADDRESS OF Subscript N-1 
FORTRAN Statements 
DIMENSION NAME (25) 

READ (11, 1J30) NAME (1) 
FORTRAN Object Code 



JSR @.FREA 

.C3 

L2. 

1 

3 

V.+0 ;NAME 



.C2 

5 

N in the array element sequence is an integer equal to 
the number of parameters following N excluding the 
list terminator flag, 5. 

The Three Word Specifier is described in Appendix 
D, "Array Structure and Handling, " 

The ELEMENT DESCRIPTOR SEQUENCE for entire 
arrays in FORTRAN I/O lists follows. 
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Input/ 
Output 






Array Descriptor Sequence 

2 

FORTRAN ADDRESS of Three Word Specifier 

FORTRAN Statements 



DIMENSION A(10) 

READ BINARY (13) A 

FORTRAN Object Code 

JSR @.BRD 
.C3 



2 

V.+0 ;A 

5 

There are two possible ELEMENT DESCRIPTOR 
SEQUENCES for left parenthesis data elements, 
depending upon whether the parenthesis is significant 
or not. Left parentheses are significant only in 
implied DO-loops or nests of implied DO-loops. 

hisignificant Left Parenthesis Sequence 

3 

FORTRAN ADDRESS of useless-right-parenthesis flag 

This flag is an integer 4, to be described in the INS IGNIFICA NT- 
RIGHT- PARENTHESIS Sequence, sequence 4. 

FORTRAN Statement 

READ (11,1) (TEST) 
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Input/ 
Output 



FREAD, FWRIT (Continued) 



FORTRAN Object Code 



JSR @.FREA 
.CI 




Insignificant left parenthesis sequence 



;TEST 



Significant Left Parenthesis Sequence 

3 

FORTRAN ADDRESS of useful-right-parenthesis Flag 

This flag is an address not equal to integer 4, and 

will be described in the SIGNIFICANT-RIGHT-PARENTHESIS 

sequence, sequence 4. 

FORTRAN Statements 



DIMENSION TEST 1 (10) 

READ (11, 1) ( TESTi(I), 1=1,7) 
FORTRAN Object Code 

JSR @. FREA 
.C3 




Significant left parenthesis sequence 



11-1! 




FREAD, FWRIT (Continued) 



Corresponding to the two left parenthesis sequences 
there are two right parenthesis ELEMENT DESCRIPTOR 
SEQUENCES. 

Insignificant Right Parenthesis Sequence 

4 

FORTRAN Statement 



READ (11,1) (TEST) 

FORTRAN Object Code 

JSR @. FREA 

.CI 

L2. 

3 

L3. 


2 
Y.+0 

4 — insignificant right parenthesis sequence 

5 

Significant Right Parenthesis Sequence 

4 

FORTRAN ADDRESS OF Indexing Variable 

FORTRAN ADDRESS of Start Value 

FORTRAN ADDRESS of Test Value 

FORTRAN ADDRESS of Increment Value 

.-4 

FORTRAN Statements 
DIMENSION TESTl (10) 



READ (11.1) ( TESTl(I), 1= 1,7) 



11-19 



Input/ 
Output 



FREAD, FWRIT (Continued) 



FORTRAN Object Code 



JSR 

.C3 

L2. 

3 

L3. 

1 

3 

V.-H8 



V.+3 

4 

V.+3 

.C2 

.C4 

.C2 

.-4 

5 



L FREA 



;TEST 1 

;i 

«• Significant right parenthesis sequence 



In the above sequence, . -4 is the address 
containing the FORTRAN ADDRESS of the Indexing 
Variable. 

The ELEMENT DESCRIPTOR SEQUENCE for ASCII 
string elements is straightforward, as shown below. 

String Element Descriptor Sequence 

6 

TEXT STRING 

(terminated by a null) 

FORTRAN Statement 



WRITE (10) "MESSAGE" 

FORTRAN Object Code 

JSR @. FWRI 
.CI 


6 

. TXT /MESSAGE/ 
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Input/ 
Output 






It is possible for program control to branch from reading 
or writing sequence upon receipt of an end-of-file. This 
procedure is illustrated in the END-OF-FILE ELEMENT 
DESCRIPTOR SEQUENCE below. 

End-of-File Element Descriptor Sequence 

7 

FORTRAN ADDRESS of EOF Return 

FORTRAN Statement 



READ(11,1,END=7)A 
FORTRAN Object Code 



JSR 


@. 


FREA 




.CI 








L2. 








7 1 
L3. 


-*- 


^EOF 


Sequence 











2 








V.4^ 




;A 




5 









Finally, if a user wishes to gain program control 
after an I/O error at the device level (parity, record 
size) has been detected, the ERROR ELEMENT 
DESCRIPTION SEQUENCE must be employed. 

Error Element Descriptor Sequence 

8 

FORTRAN ADDRESS of Error Return 

FORTRAN Statement 



READ(11,1,ERR=7)A 
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Input/ 
Output 



FREAD, FWRIT (Continued) 

FORTRAN Object Code 



O 



JSR @.FREA 

.CI 

L2. 

10 \ Error Return sequence 

L3. 



2 

V.+^ ;4 

5 

The following illustration shows the detailed structure 
of a call to FREAD generated by the following test 
FORTRAN program: 

READ (11,1) TEST 
1 FORMAT (1H0, E5. 1) 

END 

. FREAD, . FWRIT, .BRD, and .BWR have the follow- 
ing respective FCALL entry points: FREAD, FWRIT, 
BRD, and BWR. FREAD, FWRIT, BRD, and BWR must 
each be referenced in an . EXTN statement. 
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* l?'^16P ,*IAJN 



RCAO 
FORMAT 



(11,11 TFST*^ 



-FORTRAN I/O Statement, generating call to 
FREAD 



^fiojii?! 






I 



.f^ll 

.P2I 



,M4lNt 



H.l 



f 1 

'((i6>i3irAa94»i I,?,! 

■>Ki>l 4 I iZ(^W0?3 I 

'»n/lf 44asa 
t-tf*l7 '■»2«ifli5 
i.'«;P2nir«394.n5 

I 

L5.I 

.-^^r.24t»(jrt053 .cu 

■VI ji W (Jl n 2 

"i^fai 1 

177512 
177611 

')aC012 

"Si^BU TEST* 
"«n013'Nl» 



»f*0 

.VREL 

.TITL 

.MR€L 
.TXTM 

.exTo 



.csiz 

JHP 

Ul. 

JSR 

_r 1 ••— 



U9. - 

v. + t. 
5 -^ 



FIRMAT 
JMP 

L5. 
.TXT 



tU.n TFST 

.MAIN 
.MAIN 

1 

.1 



• .♦1 



-Call to i<Rt;AU 



•.FRE* 



X v^K.xKJVi.1 ADL)R,£ijtj Ox xjOgiCax v^ioiincx iVuhujcj. 

FORTRAN ADDRESS of Format Text String less two 

ELEMENT DESCRIPTOR SEQUENCE Tag 

Real Variable code 

FORTRAN ADDRESS of variable TEST 

end of FREAD sequence 



(IHfli.es.n 
#.♦1 

dtlHpi.ES.Dl* 



Format string 



£•10 

JSR 

8'»^''13 

Fi.«2 

SFS.«!' 
T.--1S7 

TS.«T.*l 
FTS.»T,*a 
VS.«V.*1 
FVS.»V. + ?l 

y.*» ■< — 

.FNO 



•.FBET 



Logical Channel Number 



TEST will be read into MAIN' s stack frame, 
at the first available temporary FTSTR 
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Input/ 
Output 



FSEEK 



Purpose ; 
Calling Sequence ; 



To access a particular record on a random access 
file. 

JSR @. FCAL (or FCALL) 

FSEEK 

Integer 2 ( since two arguments follow) 

FORTRAN ADDRESS of FORTRAN logical channel number 

FORTRAN ADDRESS of the record number to be accessed 



Supporting Routines: 
Subroutine Size : 
Notes to User: 



FRET, DVD, MPY; . CFi^L, . lOCAT . 

56 octal locations for DOS and 55 for RDOS of NREL memory. 

When more than one record is required to be written or 
read without intervening calls to FSEEK, records will 
be v/ritten or read sequentially. A random file is positioned 
initially to the beginning of record by the following: 

FCALL 

FSEEK 

2 

FORTRAN ADDRESS of logical channel number 

FORTRAN ADDRESS of integer 

This routine requires the support of the disk operating 
system. 

Original contents of accumulators, carry are restored 
upon exit from this routine. 

FSEEK must be referenced by an . EXTN statement. 

The file (with the given channel number) is positioned at 

the first byte of the first randoin record whose length was specified 

by FOPEN. 

A run time error is given if 'ne file is not randomly organized 
or if the file is not opened. 
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RDFLD, RDFCH 




Purpose: 



Calling Sequences : 



Supporting Routines 
Subroutine Size: 



To read and transfer a portion of an ASCII string from 
one buffer to another, either by counting characters 
in the transferred field (RDFLD) or by reading to a 
specified character (RDFCH). 



(AC2 contains the number of characters in the field 
to be read. ) 

TSp (n) T?nT7T r> 

FORTRAN ADDRESS of "FROM" string byte pointer 
FORTRAN ADDRESS of "TO" string byte pointer 
abnormal return (character count retained in ACl. 

See Notes to User . ) 
normal return 

(Both the "FROM" and the "TO" string pointers are 
updated upon exit. ) 



(AC2 contains the terminal field character. ) 

JSR @. RDFCH 

FORTRAN ADDRESS of "FROM" string byte pointer 
FORTRAN ADDRESS of "TO" string byte pointer 
abnormal return (character count retained in ACl. See 

Notes to User. ) 
normal return 

(Both the "FROM" and the "TO" string pointers are 
updated upon exit. ) 



FSAV, FRET; . FARO, . LDBT, . STBT , . RTER . 



Two page zero locations and US octal locations of 
normally relocatable memory. 
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Invut/ 






RDFLD, RDFCH (Continued) 



Notes to User : Original contents of accumulators and carry are 

restored upon exit . . RDFLD and . RDFCH must 
be referenced by an . EXTD statement. 

A fatal error message will be output upon overflow 
of the "TO" buffer only if the last buffer location 
contains a word consisting of two ASCII rubouts , 
077577. FREAD will ensure that such a 

buffer terminator exists in every case where it issues 
a call to RDFLD or RDFCH. 

Both RDFLD and RDFCH examine each character that 
is transferred. If a null is detected before the 
scheduled end of the field, a branch is made to the 
abnormal return. ACl is then set to the number of 
characters (excluding the null) which were read and 
transferred before the branch. 

Additionally, if a carriage return or form feed 
character is detected by RDFLD a branch will be 
made to the abnormal return location. 

. RDFLD and , RDFCH have FCALL entry points 
RDFLD and RDFCH respectively. RDFLD and 
RDFCH must be referenced by an . EXTN state- 
ment. 



11 
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READL.WRITL 



Input/ 
Output 



Purpose: 



Calling Sequences: 



To perform line input of ASCII (. READL) or binary 
(. REDS) data strings, or line output of ASCII (. WRITL) 
or binary (. WRTS ) data strings on a FORTRAN 
logical channel. 



(AC0 contains a bjrte pointer to the beginning of the 
output string. ACl contains a pointer to the end of 
the output string. AC2 contains the FORTRAN logical 
channel number, ) 

JSR @. WRITL 

FORTRAN ADDRESS of format flag 

error return (System error code returned in AC2) 

normal return 



(AC0 contains a byte pointer to the beginning of the 
output string. ACl contains a pointer to the end of 
the output string. AC2 contains the FORTRAN 
logical channel number. ) 

JSR @. WRTS 

error return (System error code returned in AC2) 

normal return 



(AC0 contains a byte pointer to the beginning of the 
input string buffer. AC2 contains the FORTRAN 
logical channel number. ) 

JSR @. READL 

error return (System error code returned in AC2) 

normal return 



11-27 



Input/ 
Output 



READL, WRITL (Continued) 



Supporting Routines ; 
Subroutine Size: 
Notes to User: 



(AC0 contains a byte pointer to the beginning of the 
input string buffer. ACl contains a pointer to the end 
of the input string buffer. AC2 contains the FORTRAN 
logical channel number. ) 

JSR @. REDS 

error return (System error code returned in AC2. ) 

normal return 



FSAV, FRET; . FOPEN, . FARG, . LDBT, . STBT, 
.lOCAT, .SOSW . 

Four page zero locations and 175 octal locations of 
normally relocatable memory under DOS;212 under RDOS. 

Contents of accumulators and state of carry are restored 
upon exit from this routine. Descriptions of the system error 
codes mentioned above can be found in the DOS User's Manual, 
Chapter 4, "Input Output Commands, " or the RDOS User's 
Manual, Chapter 5. Leading nulls are ignored and a trailing 
null is recognized as a terminator under RDOS. 

.WRITL, .WRTS, .READL, and .REDS must be refer- 
enced by an . EXTD statement. 

The format flag, given as a calling parameter for ASCII 
Write, .WRITL, is simply a one word flag used to indicate 
whether the data string will be output in free format or not. 
If the flag is non-zero, formatted output is indicated and a 
carriage return will be appended to the output string. If the 
flag is all -zero, free format is indicated and a null will be 
appended to the end of the string. 

If formatted output is indicated, the first character in the 
output string will then be examined. If this character is 
found to be ASCII j6, this zero will be replaced by a carriage 
return. If the first character is found to be ASCII 1, it will 
be replaced by a Form Feed character. All first characters 
which are neither ASCII ^nor 1 will be dropped from the 
output string. 
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Input/ 
Output 



WRCH 



Purpose: 
Calling Sequence : 



To print a string of ASCII characters on a teletype printer. 

(AC0 contains the byte pointer to the beginning of the 
bjrte string.) 

JSR @.WRCH 

(Upon exit from the routine, ACl contains the number of 
characters in the string. ) 



Supporting Routines: 
Subroutine Size: 

Notes to User: 



FSAV, FRET; . LDBT, . COUT. . 

One page zero location and 15 octal locations of normally 
relocatable memory are required. 

Original states of accumulators (except ACl) and carry 
are restored upon exit from this routine. The contents 
of ACl will be as noted above. 

ASCII characters in the string must be packed left to 
right, 2 characters per word. 

This routine can only be used with either the stand-alone 
or disk operating systems. 

. WRCH must be referenced by an . EXTD statement. 

This routine has an FCALL entry point, WRCH 
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MISCELLANEOUS FORTRAN SUPPORT 



AFRTN 12-3 

CGT 12-4 

FINIT .... .... 12-5 

GT, GE, LT, LE 12-6 

NFRTN 12-7 

OVFLO 12-8 

RTE0, RTER, RTES 12-9 

STOP, PAUSE 12-11 

THREAD, ALLOC 12-12 
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AFRTM 



'^tsc. FortTw 
Support 



Purpose: 



Calling Sequence : 



To provide an abnormal means of return from a FORTRAN 
subroutine. Return is to an address specified on the called 
subroutine's stack instead of the first location following the 
caller's parameter list. 

JSR @.AFRTN 

FORTRAN ADDRESS of variable containing the return address 



Supporting Routines: 
Subroutine Size: 

Notes to User: 



FRET; . FRG0 . 

One page zero location and 5 locations of normally 
relocatable memory. 

No error messages are generated; accumulators and 
carry are restored. 

This subroutine has no FCALL entry point. 

. AFRTN must be referenced by an . EXTD statement. 
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Misc. Fortran 
Support 



CGT 



Purpose : 
Calling Sequence : 



To implement the FORTRAN "Computed GO TO" facility. 

JSR @.CGT 

N, The number of statement numbers which can be gone to 

FORTRAN ADDRESS of the non-subscripted integer variable, V 

Effective address N^ 

Effective address N2 



Effective address N 



n 



Supporting Routines: 
Subroutine Size: 

Notes to User: 



FRET, FSAVj.RTER, , FRGL . 

One page zero location and 23 octal locations of normally 
relocatable memory. 

The above assembly language calling sequence is generated 
by the FORTRAN statement GO TO (ni,n2, . . . , n^) V . 

Accumulators and carry are restored upon exit from this 
subroutine. A fatal error message is generated if the 
integer variable V is less than 1 or greater than N, and 
program control remains in the error message subroutine. 

. CGT must be referenced by an . EXTD statement. 

This routine has an FCALL entry point, CGT . CGT must 
be referenced by an . EXTN statement. 
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Misc. Fortran 
Support 



FINIT 

Purpose : 
Calling Sequence: 



Supporting Routines: 
Subroutine Size : 

Notes to User: 



To allocate unlabeled common storage. 

JSR @.FINI 
Absolute address of Li 
Absolute address of L2 

( LI and L2 are the first and last entries respectively 
in the blauik common displacement table generated by 
the FORTRAN Compiler. The last entry in the table, 
L2, is zero unless blank common storage has been 
requested more than once. ) 

FSAV, FRET; SUCOM . 

One page zero location and 24 octal locations of 
normally relocatable memory. 

Accumulators and carry are restored . 

This routine is of limited usefulness to assembly language 
programmers. It is mentioned here only for the sake of 
completeness. 



. FINI must be referenced by an . EXTD statement. 

This routine has an FCALL entry point, FINIT , 
FINIT must be referenced by an . EXTN statement. 
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'^isc. Fortvay 
Support 



GT, GE, LT, LE 



Purpose: 



To perform signed comparisons between the contents of 
registers AC0 through AC2. 



Calling Sequences : 



Rl :sR2 


-- GT 


Rl2 R2 


-- GE 


Rl-^ R2 


-- LT 


Rl^ R2 


-- LE 



(The contents of the first register, Rl, is multiplied 
by 4008, ^^^ ^he contents of the second register, R2, 
is added to that product. The product must be stored 
in the next sequential location following the call before 
issuing the call. ) 

JSR @.GT (.GE, .LT, . LE) 



CODE: 400g * Rl + R2 



Supporting Routines: 
Subroutine Size: 

Notes to User: 



(If it is true that (Rl) is greater than -- greater 
than or equal to, less than, or less than or equal to -- 
(R2), -1 is loaded into R2. Otherwise, is loaded into 
R2). 

FRET, FSAV ; none. 

Four page zero locations plus 76 locations of normally 
relocatable memory. 

Original states of all accumulators but ACS and R2 

are restored, and the entry state of carry is also restored. 

No error messages are generated. 

. GT, . GE, . LT, and . LE must be referenced by an 
. EXTD statement. 

.GT, .GE, LE, and , LT have the following respective 
FCALL entry points: GT, GE, LE, and LT. GT, GE, 
LE, and LT must be referenced by an . EXTN statement. 
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Misc. Foptvaft 
Support 



NFRTN 

Purpose : 

Calling Sequence : 
Supporting Routine: 
Subroutine Size: 

Notes to User: 



To provide a called subroutine with a mean" of return to the 
first location following the caller's parameter list, 

JMP @. NFRTN 

FRET; none. 

One page zero location and 10 octal locations of normally 
relocatable memory. 

This subroutine assumes that FRTN points to N , the first 
item in the caller's parameter list. 

Accumulators and carry are restored, no error messages 
are generated. 

• NFRT must be referenced by an . EXTD statement. 
This routine has no FCALL entry poiat. 
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Mtso. Fortran 
Support 



OVFLO 



Purpose: 



Calling Sequence; 



To provide a means of abnormal return from a subroutine 
by checking for the occurrence of non -integer arithmetic 
overflow. 

FCALL 

OVERFLOW 

2 OR 3 

FORTRAN ADDRESS of return upon overflow 

FORTRAN ADDRESS of return if no overflow 

FORTRAN ADDRESS of string literal "S" or "N" 

(The last argument is optional. If "Si' overflow error 
messages are suppressed; if "Ni' overflow messages 
are not suppressed. "S" is the default value if no string 
literal argument address is given. ) 



Supporting Routines: 
Subroutiae Size: 
Notes to User: 



none;.AFRTN, . CPYL, .OVFL . 

23 octal locations of NREL memory. 

Accumulators and state of carry are not restored. 

The string literal argument consists of an ASCII S or N, 
left justified and followed by a null byte. 

OVERF must be referenced by an . EXTN statement. 
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RTE0, RTER, RTES 



Misc. For'tTar 
Support 



Purpose : 



Calling Sequences : 



To indicate that a run time error has ore; -^"1, either by 
specifying an error code (RTER) and the program counter 
contents, or by specifying an error code and the location 
from which a call was issued upon detection of an error 
(RTE0, RTES). In all cases, the message will specify 
whether the error is fatal or non fatal. 

(AC(^ set to called-from address. ) 
ERROR CODE 
JSR @.RTE0 

(Latest entry in SP stack is the called-from address. ) 
ERROR CODE 
JSR @. RTES 

ERROR CODE 
JSR @. RTER 

(The value of the program counter just prior to the call to 
. RTER will be printed, alongwith the appropriate error 
code. ) 



Supporting Routines: 
Subroutine Size: 

Notes To User: 



FCALL, FRET, FSAV, . FSAV, . BASC, . BDAS, .1; 

. OVFL, SP, . WRCH . (FERTl is also used under RDOS. ) 

Three page zero locations and 221 octal locations of normally 
relocatable memory under DOS' 214 locations under RDOS, 

Original states of accumulators and carry will be restored 
upon exit. 

The structure of the ERROR CODE word is as follows: 



Bit 



1 f 



1 2 



1|0 1 



11 12 



15 



Field f will be set to a 1 if and only if the error code signifies 
a fatal nm time error , and a "fatal run time error" message 
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Misc. Fc^rtray 



Support 



will be output by this routine. Field C is the field containing 
an octal value which will be converted to decimal and output 
as the specific error code by this routine. A list of all 
run time error codes is given in the FORTRAN Manual, 
Appendix A. The definition of the ERROR CODE structure 
and mnemonic error code assignments are defined on the 
PARF tape. 

Notice that bits zero, twelve, and fifteen are always set 
to a one, and bits thirteen and fourteen are always set to 
zero. These fixed bit assignments cause all ERROR CODES 
to be effective skips. Thus the call to the error routine 
can be made conditional on the result of a skip test, skipping 
to the error code if no error message should be output. The 
code will then be executed as an arithmetic/ logic no load, 
skip instruction skipping over the call to the error pro- 
cessing routine. 

The non-fatal error messages output by these routines 
are of the form: 

RUNTIME ERROR NN AT LOC.xxxxxx, CALLED FROM 
LOC. yyyyyy 

wher NN is the decimal run time error code (a complete 
list of error codes is found in the FORTRAN IV User's 
Manual, 093-000053). xxxxxx is the NREL starting address 
of the subroutine detecting the error, yyyyyy is the address 
(+1) in the main program (or user subroutine) of the assembly 
language instruction causing the error to occur. 

Fatal error messages will be of the same form as non-fatal 
error messages with the specifier FATAL appended to the 
message. 

. RTE0 is used by the FLINK module, . RTFS by the signed 
integer and single precision and double precision real 
arithmetic modules, and . RTER by the remainder of the 
run time routines. 

. RTER, . RTES, and . RTE0 must be referenced by an 
. EXTD statement. 

All fatal error conditions cause program control to return to the 
Debugger (if it is loaded), or otherwise to the operating system 
under DOS. Under RDOS, control is returned to the De- 
bugger, multitask scheduler, or CLI via the initializer. 
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Misc. Fortrari 
Support j 



Si Of, FAUbE 

Purpose : 

Calling Sequence s: 



To implement the FORTRAN STOP and PAUSE functions. 

JSR @.STOP 
TEXT 

(The message "STOP'S is output on the TTY printer, then 
the text message is output with a terminating carriage 
return and control returns to the operating system. ) 



JSR 
-1 



@.STOP 



(The message "STOP" } is output, then control returns to 
the operating system under DOS or to the CLI or multitask 
scheduler via the initializer under RDOS. ) 

JSR ©.PAUSE 

TEXT 

NSI 



(The message "PAUSE'Vj is output on the TTY printer, 
then the text message is output, followed by a carriage 
return. Control reverts to the operating system until any 
key is struck, when control then returns to the Next Sequential 
Instruction. ) 



JSR 

-1 

NSI 



©.PAUSE 



'PAUSE'; 
and control reverts to the operating system. Control 



is output on the TTY printer. 



(The message ■ FAUSE") 

the 
returns to the Next Sequential Instruction as soon as any 



Supporting Routines: FRET, FSAV; .WRCH . (FERTN is also used under RDOS. ) 



Subroutine Size: 



Notes to User: 



Two page zero locations and 52 octal locations of normally 
relocatable memory. 

Accumulators and carry are restored upon exit from these 
routines, . STOP and . PAUSE must be referenced by an 
. EXTD statement. 
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Support 



THREAD, ALLOC 



Purpose: 



Calling Sequence : 



To transfer the latest five word element of one list 
to a second list (THREAD) or to examine a list and - 
if it is a null list -- create a five word element and 
transfer it to a second list (ALLOC). 

JSR @. THREAD (or @. ALLOC) 
FORTRAN ADDRESS of "FROM" list pointer 
FORTRAN ADDRESS of "TO" list pointer 

(See Notes to User for a detailed explanation of 
. THREAD and . ALLOC operation. ) 



supporting Routines: 
Subroutine Size: 

Notes to User: 



FSAV, FRET; . CPYARG . 

Two page zero locations and 44 octal locations of 
normally relocatable memory. 

Contents of accumulators and carry are restored 
upon exit from this routine. No error messages are 
generated. 

. THREAD and . ALLOC must be referenced by an 
. EXTD statem.ent. 

The five word elements which are list numbers are 
composed of blocks of five sequential locations. The 
first location (i.e. , the one having the lowest core 
address) is the link word; the remaining four words are 
reserved for list data storage: 



LINK 



data 



data 



data 



data 



List Element 

Lists are variable in length, and list elements may be 
found in scattered locations throughout available core 
memory. The oldest member of a list has a LINK of 
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Misc. Fortran 
Support 



THREAD, ALLOC (Continued) 



'FROM" List Pointer 



Itrp/^vIT 



TO" List Pointer ' 



zero; eacli successive list element has a LINK 
which points to the next earlier element. Finally, 
each list has a pointer to the most recent list element. 



I T iof- Pi-lit 




. THREAD takes the most recent element from one 
list, the "FROM" list, and attaches it to a second 
list, the "TO" list.where it then becomes the most 
recent entry in the list. 





LINK 






D 



LINK 




'FROM" List 



'TO" List 



BEFORE THREAD OPERATION 
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Misa. Fortran 
Support 



THREAD, ALLOC (Continued) 



'FROM" List Pointer 



LINK 



LINK., 



"FROM" List 



TO" List Pointer 






LINK t 


LINK 




LINK -1 


f ^ 


X 


Z 


W 


Y 
























" TO" List 



AFTER THREAD OPERATION 

. ALLOC, on the other hand, first examines the FROM 
list pointer; if it is non-zero then the list has at least 
one element, and . ALLOC calls . THREAD. If the 
pointer contains zero, then the FROM list is a null 
list. In this case, . ALLOC creates a five word list 
element, appending it to the stack fram.e of the routine 
(or . MAIN) which called . ALLOC. This new element 
is preserved by adjusting the caller's FLGT, and the 
new element is added to the TO list by . THREAD. 

The routines have FCALL entry points, ALLOC and THREAD. 
ALLOC and THREAD must be referenced by an . EXTN 
statement. 
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ARRAY HANDLING ROUTINES 

ARYSZ 13-3 

FALOC 13-4 

FREDI 13-5 

FSBR, FSUB 13-6 
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ARYSZ 



A.TTay 
Handlevf: 



Purpose: 



Calling Sequence : 



Supporting Routines: 
Subroutine Size: 
Notes to User: 



To determine the size of an array in terms of both 
elements in the array and core locations needed to contain 
the array. 

(AC0 contains the starting address of the subscript 
bound specifier. ) 

JSR @. ARYSZ 

(AC0 contains the total number of elements in the arrav. 
ACl contains the total number of words in the array. ) 

FRET, FSAV, MPY0 ; none . 

One page zero location and 20 octal . NREL locations. 

Accumulators and carry are restored upon exit from this 
routine. No error messages are generated. 

. ARYS must be referenced by an .EXTD statement. 

This routine has an FCALL entry point, ARYSZ . 
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Handlers 



FALOC 



Purpose: 

Calling Sequence: 



Supporting Routines 



To allocate an array on a caller's stack, 

JSR @. FALOC 

FORTRAN ADDRESS of subscript boi;nd specifier 

FORTRAN ADDRESS of array specifier 

Integer value of array size in words (not elements). 

FSAV, FRET; . CPYARG, . RTER, AFSE . 



Subroutine Size: 



Notes to User: 



One page zero location and 33 octal . NREL locations. 

Accumulators and carry are restored upon exit. A fatal 
error message is generated if there is insufficient run 
time stack area for allocation of the array. 

Caller's FLGTis adjusted to include array size so that 
newly created stacks will not overwrite the array. 

. FALOC must be referenced by an . EXTD statement. 

This routine has an FCALL entry point, FALOC . 
FALOC must be referenced by an . EXTN statement. 
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llandlevi. 



Purpose: 



Calling Sequence : 



To permit the redefinition of array subscript values when 
arrays are passed as dummy arguments. 

JSR @. FRED 

FORTRAN ADDRESS of special subscript bound specifier 

(built by computer) 
FORTRAN ADDRESS of array data address 
FORTRAN ADDRESS of area reserved for 3-word array 

specifier 

(A new three word specifier and subscript bound specifier 
are constructed. The SBS is appended to the caller's 
stack - - see Appendix D illustration. ) 



Supporting Routines: 
Subroutine Size: 

Notes to User: 



FRET, FSAV, MPY0, . OFLO; AFSE, . CPYAR, . FRGl . 

One page zero location and 111 octal locations of normally 
relocatable memory. 

Accumulators and carry are restored upon exit. Upon 
stack overflow, the contents of the caller's FRTN are 
printed as an error message. 

The call to FREDI is generated by FORTRAN statements 
of this general form: 



SUBROUTINE 



TESTSUB (x,y,z,a,...) 
DIMENSION (x(i ), y(m), z(n)) 



If there is insufficient run time stack area for the 

creation of a new SBS (see Appendix D, Array Structure 

and Handling) is made to . OFLO. . OFLO is an entry 

in the FLINK module, used by FLINK to collapse run time 

stack frames to permit the issuing of a stack overflow 

message. Except for the FLINK subroutines, only FREDI needs 

to use the . OFLO entry. This is true since at run time 

only FSAV and FREDI allocate storage on the run time 

stack. FREDI must be referenced by an . EXTD statement. 

This routine has the FCALL entry point FREDI, 
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Avvay 
Handlers 



FSBR, FSUB 



Purpose: 



Calling Sequences : 



To calculate the effective address of an array element for 
the compiled program (FSUB), or for subroutine FREAD 
in a formatted I/O entry (FSBR). 

JSR @.FSUB 

Integer number of arguments 

FORTRAN ADDRESS of 3 word address specifier 

FORTRAN ADDRESS of result 

FORTRAN ADDRESS of subscript 1 

FORTRAN ADDRESS of subscript 2 



FORTRAN ADDRESS of last subscript 

(The effective address of the array element selected by 

the input subscript choices is placed in the FORTRAN ADDRESS 

of the result. ) 



(AC0 contains pointer to FREAD argument list with Element 
Descriptor List = 1 ) 

JSR @. FSBR 

(The effective address of the selected array element is 
returned in ACl. ) 



Supporting Routines; 



MPY; .MADO, .RTFS, SP . 



Subroutine Size: 



Notes to User: 



Two page zero locations and 175 octal locations of normally 
relocatable memory. 

Accumulators and carry are not restored upon exit from 
this routine. Subscript calculation errors will be flagged 
by a fatal error message. . FSBR and . FSUB must be 
referenced by an . EXTD statement. 
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APPENDIX A 

RUN TIME ROUTINE TITLES AND NREL ENTRIES 

To aid the debugging of FORTRAN programs and facilitate the interpretation of loader symbol 
tables, the following list of run time subroutines' NREL entry points is given. Subroutines 
in this Ust are common to both the DOS and RDOS FORTRAN Run Time Libraries. This 
information can be obtained by the user by running an LFE analysis of library programs. 
However, the alternate names listed here are confined to those that represent meaningful 
entry points. 



Subroutine Title 


NREL Entry Point 


Subroutine Title 


NREL Entry Point 






DCDIV 


DCDV 


ABSLT 


ABS 


nrPYPn 


CEXP 


AFRTN 


AFRTN 


DCLOD 


DCFLD 


A INT 


.AINT 


DCMPLX 


DCMPLX 


ALG 


ALG .ALGl^ 


DCMUL 


DCMUL 


AMNX0 


AMAX0 AMIN0 AMX0 


DCPWR 


CPW2 


AMNXl 


AMAXl AMINl .AMXl ,AMN1 


DCSIN 


DCSIN 


AMOD 


.AMOD 


nCSOR 


nCRQR 


ARCTAN 


DATN2 DATN 


DCSTR 


DCFST 


ARGUM 


FARGU 


DDCLO 


DC LOG 


ARYSZ 


ARYSZ 


DELET* 


DELET 


ATN 


ATN2 ATN 


DEXPC 


DXPC 


BASC 


.BASC 


DEXPO 


DEXP 


BDASC 


.BDASC 


DEL 


DEL DFS DFA DFB DFM DFD 


BREAK 


BRK 




DFXL DFLX DFSG DFLE DFLT 


CABS 


.CABS 




DFGE DFGT DFEQ DFNG 


CADD 


CSUB CAD 


DIM 


.DIM 


CATIN 


CATIN IMIO 


DIPWR 


DIPWR 


CCEQ 


CEQl 


DLOG 


DLOG . DLGl 


CCOS 


CCOS 


DMNXl 


DMAXl DMINl ,DMN1 .DMXl 


CDIV 


CDV 


DMOD 


.DMOD 


CEXPO 


CEXPO 


DPOLY 


DPLY2 


COT 


CGT 


DPWER 


DPW 


CHSAV 


CHSAV CHRST 


DREAL 


DREAL DAIMA 


CLIP 


CLP 


DSIGN 


DSIGN DSYGN 


CLOAD 


CFLD 


OCTXTLJ 


r^CITT^T t^cxtti 






i^tJl-l^ll 


U.D11LL1 uoiiin 


CLOG 


CLOG 


DSQRT 


DSQR 


CMPLX 


CMPLX 


DTANH 


DTNH 


CMUL 


CMUL 


EXP 


EXPO 


CNEG 


CNEG 


EXPC 


XPC 


COMP 


COMP 


FA LOG 


FA LOG 


CONJG 


CONJ 


FARG0 


FRGl FRG0 


COS 


CS SN 


FCLOS* 


FCLOS 


COSIN 


DCS DSN 


FFILE 


FFIL 


COUT 


CuuT GIN 


FINIT 


FINIT 


CPWR 


CPWl 


FL 


FL FS FA FB FM FD FXL 


CPYAR 


CPYARG CFYLS 




FLX FSG FNG FLE FGT FLT 


CRCXl 


CRX2 




FGE FEQ 


CRCX2 


DCRX2 


FLINK 


SAV|3 SAV2 SAV3 RSTR QRSTR 


CSIN 


CSIN 


FLIP 


FLP FLP0 


CSQRT 


CSQRT 


FOPEN 


FOPEN 


CSTOR 


CFST 


FPWER 


FPW 


CXFLl 


CIX 


FREAD 


FREAD FRWRIT BRD BWR 


CXFL2 


DCIX 


FREDI 


FREDI 


DBREAK 


DBRK 


FRGLD 


FRGLD 


DCABS 


.DCAB 


FSBR 


FSBR FSUBA 


DCADD 


DCSUB DCAD 


FSEEK 


FSEEK 


DCCEQ 


CEQ2 


I 


.1 


DCCOS 


DCCOS 


lABS 


.lABS 



DOS only. 
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Subroutine litle 


NREL Entry 


Point 


Subroutine Title 


NREL Entry Point 


IDIM 


.IDIM 




RATNl 


RATN 


IDINT 


.IDIN 




RATN2 


RTN2 


I FIX 


.IFIX 




RCABS 


CABS 


INT 


.INT 




RDCABS 


RCAB 


IPWER 


IPWR 




RDFLD 


RDFLD RDFCH 


ISIGN 


.ISIG 




READL 


READL WRITL REDS WRITS 


LD0 


LD0 LDl LD2 ST|» STl ST2 


REAL 


.REAL .AIMA 


LDREG 


LDRl LDR2 




RIPWR 


RIPWR 


LDSTN 


LDB STB 




RTER 


RTER RTE0 RTFS 


LE 


LE LT GE GT 




SDVD 


SDVD 


MAD 


MAD MADO 




SIGN 


SIGN SYGN 


MNMX0 


MAXf) MINia 




SINH 


SHIN SNH 


MNMXl 


MAXl MINI .MXl 


.MNl 


SMPY 


SMPY 


MOD 


.MOD 




SQRT 


SQR 


MOVE 


MOVE CMOVE 




STOP 


STOP PAUSE 


MOVEF 


MOVEF 




STREG 


STl ST2 


MVBT 


MVBT MVBC 




TAN 


TN 


MVF 


MVF 




TANGENT 


DTN 


MVZ 


MVZ 




TANH 


TNH 


NFRTN 


NFRTN 




THREA 


ALLOC THREAD 


NPTRl 


NR 




WRCH 


WRCH 


NPTR3 


NR3 








NRPTR 


NR2 








OVFLO 


OVERF 








PLYl 


PLYl 









Following is a list of loader titles and NREL entry points for subroutines found 
only in the RDOS FORTRAN Run Time Library. 



Subroutine 


Title NREL Entry 
CFILW 


Point 


Subroutine Title 
FTASK 


NREL Entry Point 


CFILW 


FTASK 


CLOSE 


CLOSE FCLOS 






FTIME 


FGTIM FSTIM 


DATE 


DATE 






FTMAX 


TMAX .IXMT LNKPR LQTSC 


DFILW 


DELET DFILW 








QTCNT SWAR 


DIR 


DIR 






FXMT 


REC XMT XMTW 


FACAL 


AKILL ARDY ASUSP 






GTATR 


GTATR 


FDELY 


FDELY 






INIT 


INIT 


FINTD 


FINRV FINTD 






ITEST 


ICLR ISET ITEST 


FKILL 


KILL QUIT 






MTI 


FERT0 FERTl FERTN .1 


FOVLY 


FOVEN FOVLD FOVRL 


FQTRL 


OPEN 


APPEN OPEN OVOPN 


FPEND 


PEND SUSP 






RESET 


RESET 


FPRI 


PRI 






TIME 


TIME 


FQTASK 


FQTASK FQTCK 










FSTAT 


FSTAT 










FSWAP 


FBACK FCHAN FSWAP 
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APPENDIX B 

USING EITHER A SIMPLIFIED INITIAUZER OR .1 

The following program illustrates a simplified version of the non-real time FORTRAN 
uiitiaUzer, . I . This simpUfied routine does not interface with an operating system 
and performs no blank common allocation. It is modular in structure, permitting 
only those portions to be used which are required by a particular assembly language 

program. The proerram EXAMPT.F. o-ivpn in Ar,r.onH.-^ r- ,n„^-^„*„- j.._^ -..., , .. . 

- w o--" -" --t^i^xiv*i-n. ^ xxxu£3i.±a.tcis juHt SUCH a use oi tnis 

simplified version of . I; EXAMPLE uses no number stack, so the number stack portion 

of . I is omitted in that program. 



.TITLE INITIALIZER 



THIS ROUTINE DOES NO CHECKING FOR AVAILABILITY OF 

ADEQUATE MEMORY FOR STACK ALLOCATION. .. IT PRESUMES THERE IS 

ENOUGH. NEITHER DOES IT CALL UPON AN OPERATING SYSTEM. 



ENT 


IN IT 


ENT 


SP 


ENT 


NSP 


Ei^T 


.NDSP 



INITIALIZATION 



.ENT 

. EXTN 
. EXTN 
• EXTD 



AFSE 

FCALL 
.MAIN 

QSP 



ENTRY 
"SP" STACK POINTER 
"NSP" STACK POINTER 
H'JD OF THE NUMBER 



DEFINE THE 
DEFINE THE 
DEFINE THE 
STACK 

DEFINE THE END OF THE SUB- 
ROUTINE LINKAGE STACK 
LINKAGE CALL 
Ei\ITRY POINT OF MAIN PROGRAM 



SP: 
tiSP: 
.NDSP: 
AFSE: 



. ZREL 
BLK 
BLK 
BLK 
BLK 



PAGE ZERO POINTERS 

"SP" STACK POINTER 

NUMBER STACK POINTER 

END OF NUMBER STACK INDICATION 

END OF SUBROUTINE STACK 

INDICATION 
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.NREL 
i INITIALIHE THE "SP" STACK FOR "SPSI2" WORDS 



INIT: 



LDA 


0*§.USTHU 


STA 


0*SP 


LDA 


l^SPSIE 


ADD 


1,0 



FIRST AVAILABLE ADDRESS 
ABOVE LOADED ROUTINES 
SIZE OF "SP" STACK 



INITIALIZE THE NUMBER STACK FOR "NSSI2" WORDS 



STA 
LDA 
ADD 
STA 



0*NSP 
1*NSSIZ 

0*.NDSP 



FIRST WORD OF NUMBER STACK 
SIZE OF NUMBER STACK 

END OF NUMBER STACK 



i 



INITIALISE THE SUBROUTINE LINKAGE STACK 
"FSP" IS CENTERED ABOUT AN INDEXABLE FRAME 



LDA 


3* CENTER 


ADD 


0*3 


STA 


3*FSP 



INDEXABLE CENTER 
FIRST FRAME'S STACK POINTER 
("FSP" IS DEFINED BY THE 
FORTRAN PARAMETER TAPE) 



} ALLOCATE THE SIZE OF THE LINKAGE STACK 



LDA 


1*LSSIZ 


ADD 


0*1 


STA 


1*AFSE 



INDICATION OF LINKAGE STACK 
SIZE <IT IS COMPARED TO 
"FSP" FOR OVERFLOW) 



"QSP" MUST ALWAYS REMAIN IN A FIXED RELATION TO 
"FSP" AND IS POSITIONED SUCH THAT ACCUMULATOR 2 
CAN BE IMMEDIATELY FREED IF NECESSARY* E.G. 
STA 2*§QSP 



LDA 
ADD 
STA 



1*QSPDS 

0*1 

1*QSP 



INITIALIZE THE FIRST STACK FRAME 



SUB 


0*0 


i 


STA 


0*FLGT*3 


i 


ADC 


0*0 


} 


STA 


0*FOSP*3 


i 


FCALL 




i 


.MAIN 




i 


JMP 


• 


* 



VARIABLE LENGTH OF THIS 

FRAME IS ZERO 

SET THE PREVIOUS FRAME 

TO -1 (INDICATES NO PREVIOUS 

FRAME) 

CALL THE MAIN PROGRAM 

JMP TO SELF IF RETURN IS EVER 

MADE 
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LNKSH= 1000 



SPSI2: 40 
NSSI2: 600 



LSSI2: 200-FFEL+LNKS2 
QSPDS: 200+FAC2 

.USTHU: UST+USTHU 



CENTER: 200 
• END 



INIT 



i LINKAGE STACK TOTAL SI = F: 

i t ChN lSc, m^L ..vAiLABLE 

i MEMORY IF THE OPERATING 

i SYSTEM CALL .MEM IS USED) 

i SI2E OF "SP" STACK 

i SI2E OF NUMBER STACK 

i (GOOD FOR 64. SINGLE 

i fkecision floating point 

i VARIABLES) 

i QSP displacement FROM START 

i OF FRAME 

i FIRST WORD AVAILABLE 

. ("UST" DEFINED BY THE 

i USER PARAMETER TAPE) 

i CENTER OF A STACK FRAME 
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If instead of writing a simplified initializer routine for a non-real time program, a 
user wishes to load .1 and leave the details of allocating the run time stack to that pro- 
gram, there are several features which must be incorporated into the main assembly 
language program. First of all, . I must be referenced in an . EXTN statement. This 
will cause . I to be loaded and for it to gain control when the program is run. 

Secondly, the main program must be . ENTered as . MAIN, and the label of its entry 
point must also be .MAIN . This is due to the fact that . I transfers control to the 
main program by means of 

FCALL 
. MAIN 

. MAIN must be preceded by a non-negative integer stack length word describing the 
number of run time stack temporaries required by the program. If none are required, 
integer should precede . MAIN so that it can call out to one or more run time 
routines. 

Finally, . MAIN must be terminated by a simple . END statement (as opposed to an . END 
statement with an argument starting address). 

The following assembly language program is one which causes a memory address to 
be printed out on the TTY printer. This address represents the highest memory 
address, HMA, available to the user or the lowest address in the sjmibol table, EST, 
in the case where the debugger is loaded with . MAIN. For a complete understanding 
of these terms and the system calls issued by this program, see the DOS User's 
Manual. 

Those features which must be incorporated into any assembly language program using 
. I are enclosed with rectangles for emphasis. If an assembly language program 
requires run time stack storage, the appropriate integer (instead of zero as shown) must 
precede the beginning of .MAIN code. 
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Plffll MkMS 



Oil 

913 
P>4 
(^5 
Vt6 
917 
?t8 
P)9 
1«» 
11 
12 
13 
14 
15 
16 
17 
10 
19 
?pi 
81 
22 
23 
24 
25 
26 
27 
26 
29 
30 
31 
32 
33 
34 



0JI0PI1 

0(»PII5*2 

0C^P;r3 
»0(4PI4 
0PI0P!5 

f5PlWC7 

JIPI01 I 
0P>»12 

C'ei«?il3 



Oi06P!l7 I, MAIN: 
0^0140^ 

1PISC<0PI 
P!2l»410 
177777 
177777 

C2P<4('(5 
(^06001$ 

0ff!6017 

(^,^4419^ 
P!I?I04BW 
tlpl(»P!34"8LlFj 

000100 ,buf: 



» PROGRAM TO DETERMIME THE MTGWE5T AVATL*BLF mFMORV 

» ADDRESS, HMA, OR THE START OF THE SYMBOL TA«Lt 
I 

I THIS ASSEMBLY LANGUAGE PROGRAM ISSUES Rno' 'ffTF^ CAL 

I (SEE THE RODS USFR'S MANUAL) 

f AND IT ALSO ISSUES FORTRAN RUNTIME LIBRARY CALLS 

I 



.TITLE MEMS 

.EXTP .WRCH 

LENT .TTaTnI 

r C V T ki I r r > I I ontBr I tI 

.NREL 



HI 
,SYST 

,MEM 

MOV 
LOA 
FCALL 
.BDASC 



LDA 
JSR 

.SYST 

.RTN 
JMP 

2*.8UF 
.8LK 

.END 



011 

0,RUF 



I SYSTEM CALL TO GET THE HMA 
I ERROR RETURN 



» CHANGE BINARY TO DECIMAL IN ASCII 



0,BUF 

#,WRCH I TYPE THE VALUE ON THF TTY 



100 



I SYSTEM CALL TO RETURm TO THE CLI 



0002 MEMS 



BUF 


09100151 


1/22 


FCALL 


000H0(5IX 


1/23 


.BOAS 


t"*?i0007'X 


1/24 


.BUF 


000016» 


1/32 


.1 


177777 X 




.MAIN 


04)0001 • 


1/18 


.WRCH 


5I00S101SX 


1/27 



1/26 



1/33 



1/32 
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APPENDIX C 
ILLUSTRATIVE PROGRAMS 

Appendix C contains a series of assembly language routines which illustrate the use 
of the library. The first two are subroutines found in the library. BREAK separates 
an SPFL number into its integral and fractional components, and demonstrates 
the use of the number stack. IDINT truncates a DPFL number, and expresses the 
result as an integer. IDINT utilizes the FSAV/FRET stack managers and it calls 
FARG, the argument fetching routine. 

The illustrative program entitled EXAMPLE computes the product of any two 
positive integers provided the product does not exceed 65535. The multiplier 
and multiplicand, entered via the TTY keyboard, are separated by a comma and are 
followed by a carriage return. The product is returned on the printer, followed by 
a carriage return and line feed, after which the program is ready to accept new 
data. Tjrpieal program output is as follows: 

2,3 
6 

28,9 
252 

31500,2 
63000 

No error checking is done, so that input data which is non-numeric or causes a 
product outside the acceptable range results in spurious results being given. 

EXAMPLE also illustrates the use of parts of the simpUfied stack initializer, . I, 
given in Appendix B. 

A flowchart of EXAMPLE follows the program listing to clarify the program 
coding. 
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0)0011 RREAK 



01 
«2 
(33 
04 
05 
06 
07 
08 
09 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 



000B0-000000»,8RK1I 
006000- 



00000'056002S9RK| 
00001'010002$ 

00002»020001S 

00003*000005$ 

00004'000004S 

00005'000005 

00006*000003$ 

00007*000005 

00010l(i«0ia006$ 

00011 '021605 
00012)014002$ 

00013*032002$ 
(90(*14>p01Plp)0 



(BREAK UP SINGLE PRECISION FLOATIKG POINT NUMBER 
UNTO AN INTEGER AND A FRACTIONAL PART 
UNPUTI ARGUMENT ON TOP OF NUMBER STACK 
lOUTPUTl FRACTION REPLACES INPUT 
I INTEGER IN ACl 

.TITLE BREAK 

,ENT FBRKl 

.EXTD NSP,SP 

.EXTD FXFL1,FLFX1,FRLD1,FSB1 

,ZREU 

BRK 

FBRKl ■ JSR #,BRKl 



,NREL 
STA 
ISZ 
LDA 

FRLDl 
FLFXl 

FAC0-FZD 

FXFLl 

FAC0-FZO 

FSBl 

LDA 

DSZ 

LDA 

JMP 



3,#SP 

SP 

0,NSP 



0,FAC0,3 

SP 

2,#SP 

0,2 



ICOPY ARGUMENT 

IFLOAT TO FIX IT 

»FIX TO FLOAT INTEGER 

IGET FRACTION ■ ARG - FLOAT(I) 



.END 



lEND OF BREAK ROUTINE 



0002 BREAK 



BRK 


0R(«?!00' 


1/14 


1/18 


FBRKl 


006000» 


1/15 




FLFXl 


000004SX 


1/22 




FRLDl 


000005SX 


1/21 




FSBl 


000006$X 


1/26 




FXFLl 


000003$X 


1/24 




NSP 


000001$X 


1/20 




SP 


000002SX 


1/18 


1/19 


.BRKl 


000000- 


1/14 


1/15 



1/28 



1/29 
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58«!91 JOINT 

»i fTRUNCATE 0,P NUf*8e« AT SECOND FORTRAN ADDRESS 

33 ?T0 NEAREST INTEGER li^ MAGNITUDE 

03 MNO LEAVE RESULT AT FORTRAN ADDRESS 

«* I3EL0W CALL 

05 

"* .TITLE lOINT 

P .ENT 10, NT, XI, 

28 ,EXTN F3AV,FRET 

05 .EXTO FLFX2.FFLR2 

l^ .EXTO ,FARG 

11 .ZREL 

12 XI, I 

13 i»5»i?!9i(?i«p»!«?!!?t(?i0ilD,NT: .IDIN""? 

H .NREL 

i5 OsaSSaw! 177777 FSAV 

16 m^nti^Tiffimfsz cat 2 

17 ?!9»C»?t2«^2{?777 .lOINl LDA 3,C2 

19 0355^5^3 '^916^33* J8R »,FARG 

19 9!O)0(?!4«.1O)(!?««2« FFL02 

2(? ^3)?*M5« 1?fflP!12 •TMP+1-FZD 

21 «?l5t?!i8'i^i?c;as51« FLFX2 

22 ?i?)0?!7'l'^»!?ll #TMp-FZD 

23 'S»3'/I10» 177777 FRET 
24 

28 .END lENO OF TRUNCATION OF D.P NUMBER 



mdz 


lOlNT 




C2 


vnfii^mi » 


1/J« 


FFL02 


moi^^2$% 


1/19 


FLFX3 


0?i9!001SX 


1/21 


FRET 


asijiijiflii'x 


1/23 


FSAV 


5|)'4?ic»flffl«X 


1/15 


10, NT 


^^0?i2l0» 


1/13 


XI, 


f^S^S)?,?)!?!- 


1/12 


,FARG 


3««5?!0.1$X 


1/lS 


• IDIN 


?!!35|(30S' 


1/13 



1/17 



1/17 
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W0O1 EXAHP 



01 






io2 






03 






04 






05 






06 






07 






08 






y9 






10 






11 




17 7612 


12 




177613 


13 




177614 


14 






15 






16 






17 






18 






19 






20 






21 


00000 ' 


'022524 


22 


00001 ' 


'040005S 


23 


00002' 


'024527 


24 


00003' 


'123000 


25 


00004' 


'034521 


26 


00005' 


'117000 


27 


00006' 


'054016 


28 


00007 ' 


•024517 


29 


00010' 


' 107000 


30 


0001 1 ' 


'044006S 


31 


00012' 


•024520 


32 


00013' 


' 107000 


33 


00014' 


• 044007$ 


34 


00015' 


• 102400 


35 


00016' 


•041600 


36 


00017" 


' 102000 


37 


00020" 


'041601 


38 


00021 " 


•177777 


39 


00022" 


•000025' 


40 


00023" 


•000776 


41 


00024" 


•000004 


42 






43 


00025" 


'020510 


44 


00026' 


'041614 


45 


00027" 


'041613 


46 


00030" 


'102400 


47 


00031 " 


'041612 


48 






49 







.TITLE EXAMPLE 
ASSEMBLE WITH PARF 



AND PARU 



1: 



MAIN! 



.EXTN FCALL*MPY,FRET* .BDASC*MPY0 
.EXTD .LDB* .COUT* .STB 
.EXTD .CIN,SP*AFSE#QSP 



D1=TMP+1 

BPTR=D1+1 

INPT=BPTR+1 



i FIRST INPUT DIGIT 

i FIXED BYTE POINTER TO BEbIN 

; MOVING POINTER 



• NREL 




LDA 


0,@.USTHU 


STA 


0*SP 


LDA 


uspsie 


ADD 


1*0 


LDA 


3*CENTER 


ADD 


0*3 


STA 


3*FSP 


LDA 


1>LSSIS 


ADD 


0> 1 


STA 


1*AFSE 


LDA 


1*9SPDS 


ADD 


0* 1 


STA 


1*QSP 


SUB 


0,0 


STA 


0*FLGT*3 


ADC 


0*0 


STA 


0*FOSP*3 


FCALL 




.MAIN 




JmP 


.-2 


4 




LDA 


0*PINPF 


STA 


0*INPT*3 


STA 


0*BPTR>3 


SUB 


0*0 


STA 


0*D1*3 



iSET UP SP 



i SET UP FSP 



S SET UP AFSE 



i SET UP QSP 



i SET UP FIRST STACK FRAME 



J REPEAT JOB 



; CONSTRUCT MOVING PTR 

i CONSTRUCT FIXED POINTER 
i INITIALIZE FLAGS 
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t '! 


0002 EXAMP 






01 








02 








03 








04 


00032'006004SSTP1: 


JSR 


@.CIN 


05 


00033*105000 


MOV 


0» 1 


06 


00034*045611 


STA 


1 * TMP, 3 


07 


00035*021614 


LDA 


0,INPT*3 


08 


00036'006003S 


JSR 


@.STB 


09 


00037*01 1614 


I St 


INPT, 3 


10 


00040*02561 1 


LDA 


l*TMP,3 


11 


00041 *020467 


LDA 


0*CRTN 


12 


00042*122404 


SUB 


1*0>S2R 


13 


00043*000767 


JMP 


STPl 


14 


00044*041611 


STA 


0* TMP> 3 


15 


00045*021613 STP2: 


LDA 


0*BPTR*3 


16 


00046*041614 


STA 


0^INPT*3 


17 


00047*0060013 


JSR 


e.LDB 


lb 


00050*030466 


LDA 


2> CMA 


19 


00051 *132415 


SUB# 


1*2*SNR 


20 


00052*000416 


JMP 


HSKP 


21 


00053*030455 


LDA 


2,CRTN 


22 


00054* 132415 


SUB# 


1*2,SNR 


23 


00055*000423 


JMP 


STP3 


24 








25 


00056*020455 


LDA 


0*C017 


26 


00057*123400 


AND 


1*0 


27 


00060*030454 


LDA 


2*C012 


28 


00061 *025611 


LDA 


1*TMP*3 


29 


00062*177777 


MPY 




30 


00063*045611 


STA 


1*TMP>3 


31 


00064*021614 


LDA 


0, INPT,3 


32 


00065' 101400 


INC 


0*0 


33 


00066*041614 


STA 


0*INPT*3 


34 


00067*000760 


JMP 


STP2+2 


35 


00070*021611 HSKP: 


LDA 


0*TMP,3 


36 


00071 '041612 


STA 


0*D1,3 


37 


00072* 102400 


SUB 


0>0 


38 


00073*041611 


STA 


0*TMP*3 


39 


00074*021614 


LDA 


0*INPT*3 


40 


00075*101400 


INC 


0*0 


41 


00076*041614 


STA 


0*INPT*3 


42 


00077*000750 


JMP 


STP2+2 



INPUT CHARACTER 



i GET BYTE POINTER 
; STORE THE BYTE 
i UPDATE POINTER 



; IS IT A CR? 

; GET BEGINNING BYTE POINTEr^ 

; GET TOP DIGIT 

i IS IT A COMMA? 

i YES. 

* IS IT A CR? 

i YES 

i NO* STRIP CODE 



i BUMP POINTER 
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t 0fe)03 EXArtP 








01 










02 










03 










04 


00100*025612 


STP3: 


LDA 


1,D1,3 


05 


00101 '031611 




LDA 


2jTMP,3 


06 


00102*177777 




MPY0 




07 


00103*045612 




STA 


1*D1*3 


08 


00104*021613 




LDA 


0*BPTR,3 


09 


00105*000021 ' 


1 


FCALL 




10 


00106*177777 




.BDASC 




U 


00107*024421 




LDA 


1*CRTN 


12 


001 10*006003$ 


JSR 


@.STB 


13 


00111 *021613 


finale: 


LDA 


0*BPTR*3 


14 


00112*041614 




STA 


0,INPT*3 


15 


00113*021614 




LDA 


0*INPT,3 


16 


001 14*0060013 


JSR 


e.LDB 


17 


00115*121000 




MOV 


1>0 


18 


00116*0060025 


JSR 


@.COUT 


19 


00117*030411 




LDA 


2*CRTN 


20 


00120*112415 




SUB# 


0,2>SNR 


21 


00121 *177777 




FRET 




22 


00122*011614 




152 


INPT*3 


23 


00123*000770 




J MP 


FINALE+2 


24 


00124*000407 


.USTKU: 


UST+USTHU 


25 


00125*000200 


CENTER: 


200 




26 


00126*001167 


LSSIzi: 


200-FFEL+LNKS2 


27 


00127*000007 


cSPDS: 


200+FAC2 


28 


00130*000015 


CRTN: 


015 




29 


00131 '000040 


SPSI2: 


40 




30 


00132*000007 


QSPDS: 


200+FAC2 


31 


00133*000017 


C017: 


17 




32 


00134*000012 


C012: 


12 




33 


001000 


LNKSc=1000 




34 


00135*000276' 


'PINPF: 


2* INPF 


35 


00136*000054 


CMA: 


054 




36 


000100 


INPF: 


.BLK 100 


37 


000000* 




.END 


.1 



i INITIALIZE BYTE POINTER 
i CONVERT MS WORD TO -ASCII 



i INITIALIZE POINTER 

i GET BYTE POINTER 

; ACl GETS BYTE 

> OUTPUT IT FROM AC0 

i LAST CHARACTER? 

t YES* RETURN 

i NO, INCREMENT POINTER 

i AND REPEAT 
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0004 EXAl^^JP 



AF3E 


0id0006SX 


1/30 










BPTR 


177613 


1/12 


1/13 


1/45 


2/15 


3/08 


C012 


000134' 


2/27 


3/32 








C017 


000133* 


2/25 


3/31 








CENTE 


000125' 


1/25 


3/25 








CMA 


000136' 


2/18 


3/35 








CRTN 


000130' 


2/11 


2/21 


3/11 


3/19 


3/28 


Dl 


177612 


1/n 


1/12 


1/47 


2/36 


3/04 


FCALL 


000105'X 


1/38 


3/09 








FINAL 


000111' 


3/13 


3/23 








FRET 


000121 'X 


3/21 










HSKP 


000070' 


2/20 


2/35 








INPF 


000137' 


3/34 


3/36 








INPT 


177614 


1/13 


1/44 


2/07 


2/09 


2/16 






2/41 


3/14 


3/15 


3/22 




LNKS2 


001000 


3/26 


3/33 








LSSI£ 


000126' 


1/28 


3/26 








MPY 


000062 'X 


2/29 










MPY0 


000102'X 


3/06 










PINPF 


000135' 


1/43 


3/34 








QSPDS 


000132' 


1/31 


3/30 








SP 


000005SX 


1/22 










SPSIzS 


000131' 


1/23 


3/29 








STPl 


000032' 


2/04 


2/13 








STP2 


000045' 


2/15 


2/34 


2/42 






STP3 


000100' 


2/23 


3/04 








£SPDS 


000127' 


3/27 










.BDAS 


0001 06 'X 


3/10 










.GIN 


000004$X 


2/04 










.GOUT 


000002SX 


3/18 










.1 


000000* 


1/21 


3/37 








.LDB 


000001SX 


2/17 


3/16 








.MAIN 


000025' 


1/39 


1/43 








.STB 


000003SX 


2/08 


3/12 








.USTH 


000124' 


1/21 


3/24 









3/13 



3/07 



2/31 2/33 2/39 



C-7 



Flow Chart ol llliisl nitivo pi'ojjnini, "I'.XAMI'l.l'," 



Strip Away 
ASCII code 



Build Complete 
octal number; 
TMPnortigit 
replaces TMP 



Pointer + 1 — ► 
Pointer 



Set Dp Stacks 

and 

Pointers 



Initialize 
Byte Pointer; 

zero 
Temporaries 



Read Character, 
Echo It 



Store the 
Character , 
Pointer + 1 -♦ 
Pointer 




Reset Pointer 



Get ASCII Byte 



( .MAIN J 



( STEP 1 J 



■ - ( STEP 2 j 
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f STEP 3 j 



TMP 'Dl— »D1 



Convert Dl to 
string of 

ASCII decimal 
digits 



End string with 
carriage return 



l^t-OCL l^yLC pUiilLCi 



Get ASCII byte 



Output character 
viaTTY 




Yes 



f FINALE ) 




Pointer + 1 
Pointer 
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CHANGES FROM REVISION 2 TO REVISION 3 OF THE FORTRAN n/ RUN TIME 
LIBRARY USER'S MANUAL ' ' 

Substantive changes are described in the following list. Typographical corrections 
are not included. 

Page 1-26 Comparisons are now given of execution times on the NOVA, NOVA 
1200 and NOVA 800 series computers. 

Page 1-27 The category formerly entitled "Supporting Routines and Displace- 

ments" is now entitled simply "Supporting Routines. " 

Due to extensive changes throughout this revision of the FORTRAN 
Run Time Library, the sizes of many routines have changed. The 
pages containing size changes to previously existing routines are 
as follows: 

2-7,2-14,3-5,3-8,3-11,3-15,3-16,3-17,3-19,3-20,3-21,3-22 
3-24, 3-28, 4-8, 4-12, 4-13, 4-16, 4-19, 4-20, 4-21, 4-23, 4-24, 4-26, 
4-27, 6-5, 7-17, 7-19, 8-4, 10-7, 10-9, 10-10, 10-12, 10-14, 10-16, 
11-3,11-6,11-9,11-10,11-11,11-13,11-24,11-28,12-9,13-6, 
E-9,E-ll,E-15,E-16,E-17,E-18,E-19,E-20,E-22,E-23 

Page 3-17 Rounding now occurs when a single precision floating point number 

is stored. 

Page 4-21 Rounding now occurs when a double precision floating point number 

is stored 

Pages 10-16f The DOS and RDOS initializers have additional entry points to 
return control to either the CLI, debugger, or task scheduler. 

Page 11-6 The channel status array for CHSAV/CHRST has been changed from 

a six to a two word array. 

Page 11-8 If a file is open when DELETE is called, the file is first closed, 

and only then is it deleted. 

Page 11-11 If an attempt is made to open a non-existent file, a new file is 
created and then is opened. 

Page 12 -9f The calling sequence for the run time error routines has changed 
and the error code structure has also been modified. Run time 
error messages are now more explicit. After a fatal error, control 
goes to either the single task or multitask initializers which transfer 

control to either the debugger, the CLI, or to the task scheduler as 
appropriate. 



CHANGES FROM REVISION 2T0 REVISION 3 OF THE FORTRAN IV RUN TIME 
LIBRARY USER'S MANUAL (Continued) 



Appendix A To aid in the debugging process, NREL entry points have been 

assigned to the start of all run time routines. These entry points 
also facilitate the interpretation of loader symbol tables. This 
appendix no longer lists summary information for the library, but 
does list all loader titles and all NREL entry points for routines 
in the library. 

Appendix E Numerous additional real time subroutines are now available in the 
RDOS FORTRAN Library. These routines are found principally in 
three new categories: Swap and Overlay Commands, File and I/O 
Commands, and Bit Manipulation Commands. 

Appendix F The FORTRAN Parameter Listing is now given in Appendix F. 



This addendum updates and corrects revision 03 of the FORTRAN IV Run Time Library 
User's Manual so that this manual may be used with revision 02 of the Real Time Disk 
Operating System. Minor changes are indicated by page number on the following list. 
This information should be annotated on the appropriate pages of the User's manual. 
Following the minor changes is a series of new and changed pages which must either 
replace existing pages in the manual or must be inserted into the manual. Changed 
information on replacement pages will be indicated by a heavy vertical line in the 
outside margin. New pages to be inserted into the manual will contain a page number 
of the form 

i-j-k 

where i is the chapter or aooendix mimher. i is t-hp nae''=' i" i^^*^ r-Uartf^y ^irV.ir-Vi 
precedes the new page, and k is the number of the page in the insertion series. 
Thus page E-2 is a replacement page for the current page E-2, while page E-14-1 
is a new page which must be inserted after the current page E-14. 



Page where Change 

Occurred '^^^g^ 



9_5 . SOSW has been removed from the FPZER module. A new 

flag, . DSI, is used in its place; this flag is defined in the 
SOS library. 

II. 2 Channel table assignment initialization is accomplished by the 

run time stack initializer, . I, under RDOS. There is no CATIN 
module under RDOS. The sizes of the single and multitask 
RDOS initializers have changed to 253g NREL locations 
(single task . I) and 4028 NREL locations (multitask . I). 
The I/O Channel Assignment Table is built in . I's stack 
frame. 

J ^_6 A three -word integer array must be allocated for channel status 

information in CHSAV/CHRST. This module is now 53 octal 
NREL words in length. 

1 1.8 DELET (now equivalent to DFILW) and RLSE are found in 

separate modules under RDOS. 

11_9^ E-55 FC LOS is now equivalent to CLOSE. The supporting 

routines for CLOSE are as follows: FSAV, FRET; .CPYL, 
. lOCAT, . RTER . The size of this routine is 47 octal 
NREL locations. 

,1.10 Supporting routines for FFILE under RDOS are as follows: 

FCALL. FCLOS, FRET, FSAV, FSEEK, lOPTR; .CPYA, 
. FCAL, . lOCAT, . RTER. The size of this routine is 
I ZREL and 64 octal NREL locations. 
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Up to 64 FORTRAN channel numbers are allowed, through 63. 
Supporting routines for FOPEN under RDOS are as follows: 
.DSI, FRET. FSAV, lOPTR; .CPYL, .lOCAT, .RTER . Sub- 
routine size under RDOS has changed to 1 ZREL and 147 octal 
NREL locations. 

, 1 24 Supporting routines for FSEEK under RDOS are as follows: 

FRET, MPY; .CPYL, . lOGAT, .RTER . The size of this 
routine is 51 octal NREL locations. 
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Page where Change 

Q^^"^^^d Change 

11-27,11-28 No parameter is input via ACl to . WRITL . ACl 

inputs the number of bytes to be written (or read) in . WRTS(or . REDS). 

Supporting routines for READL and WRITL under RDOS 

are as follows- . nST. fpAT T rrttt rqaaa r^ouM. unur^ 

. lOCAT, . LDBT, . STBT . The size of the READL/WRITL 
module is 4 ZREL and 305 octal NREL locations. 

13-5 Supporting routines for FREDl under RDOS are as follows: 

T7D'C"T' CCA'^r iiirn\rr\ r\T7T/-\. a t-jot-i /-iT-nr» t-it>^» ^«~ 

^ ivj^ X , xu^iv, ivll nj, . v^t i_U, -mr OH , .\^ri/\., . r Rui.,, Qai' . 

A-1 CATIN is now found in the DOS library only. 

^-2 Insert FOVLD (title) OVLOD (entry) before FOVLY. 

Insert RLSE (title) RLSE (entry) before TIME. 

E-17, E-15, E-16 Supporting routines for ASUSP, AKILL, and ARDY are as 

folbws: FRET, TAKIL, TAPEN, TAUNP; .CPYL. The 
subroutines' module's size is 22 octal NREL locations. 

E-18 Supporting Routines for FTASK are as follows: CTASK, FRET; 

• CPYL . The svibroutine size is now 14 octal NREL locations. 

E-19 TTlP K"!! T faol- i^all io rtn^ir v\o-r+ r^■f t-Vi^^ r-n.. l4-{4-r. ^1, ^«U„J,.1 

****_*j „v*uj.^ wi*^j. Av-» xxwr pu.j. I. WJ. Lilt li.lUi.LXLClO^ OV-llCUUlCi 

module. Its calling sequence remains the same. 

E-20, E-23 Supporting routines for REC, XMT, and XMTW are now as 

follows: FRET, RECC, XMTT, XMTTW; .CPYL . The sub- 
routines' module's size is 33 octal NREL locations. 

E-21 Supporting Routines for SUSP are as follows: FRET, TREND; 

. CPYL. The subroutine size is now 5 NREL locations. The 
suspended task remains suspended until readied by an ARDY or 
RELSE call. 

E-22 Supporting routines for PRI are as follows: FRET, TPRI; . CPYL . 

Subroutine size is 6 NREL locations. 

E-29, E-30 Delete the date parameter from the calling sequences given for 

FGTIM and FSTIM; change the integer argument count from 
4 to 3. The size of this module is reduced from 41 to 24 octal 
NREL locations. 

iii 



Page where Change 

Occurred Change 



E-46, E-43 Supporting routines for FOVRL and FOVLD are as follows: 

FRET, TOVLD, TOVRL; .CPYL, .lOCAT. The subroutines' 
module's size is 45 octal NREL locations. The overlay name 
may be used in place of the overlay number if the name was 
declared in an . ENTO or OVERLAY statement. 

E-50 Supporting Routines for OVOPN are as follows: . DSI, FRET, 

lOPTR; .CPYL, .lOCAT . The subroutine size is now 174 
octal NREL locations. 

E-57,E-60,E-65 DIR, INIT, and RLSE may use directory names instead 

of device names as arguments. 

E.64 Supporting Routines for RESET under RDOS are as follows: 

FRET; .lOCAT . The subroutine's size is 21 octal NREL 

locations. 

* 

E-71 Bit position indicator may be any integer from to 15 j^^. 

E-74 Information in the CHANT ASK statement may be selectively 

overridden at relocatable load time by means of RLDR local 
switches /C and /K. If channel/task number specification 
information is given at relocatable load time, the CHANTASK 
statement may be omitted. If the CHANTASK statement is 
omitted and /C and /K RLDR switches are not used, 1 task 
and l6io channels are allocated by default. A minimum of 
16 logical FORTRAN channels will be allocated, even though 
fewer may have been specified by the user. However, only 
the number specified may be used simultaneously. 
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APPENDIX D 

ARRAY STRUCTURE AND HANDT .TNin 



Arrays are ordered sets of data, arranged in up to 128 dimensions (see 
FORTRAN IV User's Manual). The library's allocation of array area pre- 
sents an exception to the general rules of stack structure given in Chapter 1. 

Arrays may be defined to be any size within the limits of available memory 
storaee. Arrav elements are mimhprs pvm-pccpri in nof-VoH f«i-Tvi ^r,^ <-i,^^^ 
are referenced by integer subscripts (one for each dimension). Values are 
assigned to array elements so that the first subscript varies most rapidly, 
then the second subscript, and so on. 

of locations to the current end of the caller's stack. Array allocation is ac- 
complished by FALOC, whose caller's stack is then extended by the size of 
the designated array. FALOC also adjusts the caller's FLGT so that any 
further creation of stacks will follow the end of the array. 

Elements of an array are not referenced by the conventional FORTRAN 
addressing scheme, histead, routines FSBR, FSUB are used to calculate 
the absolute addresses of an array element. The address in this instance 
is an absolute NREL address instead of a relative stack displacement. 

The following picture shows memory maps before and after FALOC execution. 
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MEMORY MAPS BEFORE AND Ai IKR bALQC EXECUTION 
FORTRAN statement DIMENSION A(x,y,z) generates a call to FALOC. 



Map when FALOC is called, its stack 
is allocated, but before FALOC 
execution. 



TMP 



Variable 
Portion 

of 
.MAIN 
Stack 



V. 



variable p 



Blank 



Blank 



Blank 



variable q 



variable r 



FALOC 
Header 



FALOC FTSTR 



FALOC FTSTR+1 



Map after FALOC execution. 



TMP 



3 

Word 
Array 
Specifier 
(TWS) 



FALOC updates the caller's PLOT 
to include new array size so that if 
another subroutine is called, its 
stack will be built after the array. 




variable p 



■ NRF.T.flddrRSR of SRS 

Array address pointer 



TWS 



Integer size of Array 
variable q 



variable r 



Memory 
Area 

Allocated for 

Array 
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Two tables are needed by the array handling routines in order to accom- 
plish the tasks of array allocation and element addressing. A third 
table is required when an array is to be redimensioned and passed as a 
dummy argument. 

The first of these is the Subscript Bound Specifier (SBS). This table des- 
cribes each subscript's boundaries and specifies the type of number element 



Htm-pH in thp arra-^T 



^irtrp a-r-ra'^r inHir-pc mav HpoHn at valiipc nthp-r than 1 



both upper and lower index values are specified in the table. 

A smaller table, the Three Word Array Specifier (TWS), contains a pointer 
to the SBS, a pointer to the beginning of the array, and the total number of 
words (not elements) in the array. 

TWS 



FORTRAN address of Subscript Bound Specifier 



FORTRAN address of the first array element 
Integer value of array size in words 



SBS 



Integer value = 2 * number of subscripts + 1 



number element size* | number element typeA 
1st subscript lower bovuidary (1 if defaulted) 
ubi - Ibi + 1 



2nd subscript lower boundary (1 if defaulted) 
(ubj - Ibi + 1) * ( ub2 -lb2 + 1 ) 



(ubi - Ibi + 1) * (ub2 - lb?. + 1) . . . * (ubn-lbn+ 1) 



Three Word Array Specifier and Subscript Bound Specifier Tables for 
an array of the general form Array A (lower boundirupper boundi, . . , 
lower boundn: upper bound^). 



i. e. , the number of words in the packed form of the number element type: 

1 for integers, 2 for SPFL's, 4 for DPFL's and single precision complex number, 

and lOg for double precision complex numbers. 

I"*-*' integer, 2 ♦♦ SPFL, 3 ♦♦DPFL, 4'«-* Single precision complex, 

5-*-* double precision complex. 
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Space for the TWS is reserved on the caller's stack before calling FALOC, 
which then fills in the three word table with the appropriate information. 
The SBS, on the other hand, is built in NREL memory by the compiler 
for an array defined in the main program (or in a siibroutine if the array is not 
a passed argument). If an array is to be redimensioned and passed to a subroutine 
as a dummy argument, a new SBS is created in the run time stack, reflecting the 
new index values. Given that the array is passed to the subroutine as an argument, 
the subroutine accesses the array via the new SBS. Array redimensioning and 
passing is done by FREDI. 

As with FALOC, FREDI requires that a 3 word area be reserved on the caller's 
stack into which it builds the new TWS. FREDI also requires the address of 
the array being passed, and the address of another table called the Special 
Subscript Bound Specifier (SSBS). The SSBS is required so that re -dimensioning 
can be accomplished. SSBS is similar to SBS except that in place of literal values and 
cumulative partial products for each index, the addresses of the upper and lower 
bounds for each index are given. The SSBS is built by the compiler in NREL 
memory. 



Special Subscript Bound Specifier 



Integer value = 2 * number of subscripts + 1 
number element size * \ number element type^ 



address of 1st subscript lower bound 



address of 1st subscript upper bound 



address of 2nd subscript lower bound 



address of 2nd subscript upper bound 



address of nth subscript upper bound 



The new SBS, built by FREDI for the caller, is appended to its own stack, and 
the TWS is built into the area of the caller's stack reserved for that purpose. 
The stack area used by FREDI in its computations becomes a waste area, unused 
by the caller upon completion of FREDI's operation. FREDI adjusts the caller's 
FLGT, making the new SBS part of the caller's stack and protecting it from being 
overwritten by future stacks. The array itself is not appended to the caller's 
stack, since it is already defined by the calling program. 



* Same as for ordinary Subscript Bound Specifer 

A 

Same as for ordinary Subscript Bound Specifier 
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MEMORY MAPS BEFORE AND AFTER FREDI EXECUTION 



After FREDI' s stack allocation before 
FREDI execution. 



Block r 
reservedJ 



for 
TWS 



caller's stack 



Blank 



Blank 



Blank 



FREDI STACK 



FREDI updates the caller's FLGT to 
include the stack area and SBS 
appended from FREDI, 



X 



CALLER'S STACK 



Pointer t.o Nfiw .SB.S 



Pointer to Array Beg. 



Integer Array Size in wds 



FREDI' s used Stack 



area 



(unrecoverable) 



N 



J 



TWS 



new 

Subscript 

Bound 
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APPENDIX E 

REAL TIME FORTRAN 

DGC Real Time FORTRAN (hereafter called RT FORTRAN) provides programmers 
with the means to use the computational power of FORTRAN in programs written to 
control a real time environment. This appendix describes methods for writing RT 
FORTRAN programs and documents those routines, found only in the RDOS FORTRAN 
library, which implement the RT FORTRAN canahilitv. 

Real Time FORTRAN Concepts 

Effective use of RT FORTRAN presumes that users have familiarized themselves 

thorOUehlv with DCn RpaI Timp f^nno<=>r>fc ac frtiinrl !n *»iq DOOC TToq-^'o AA^.^,.r.1 

093-000075. This is due to the fact that RT FORTRAN programs will seldom, if 
ever, be written entirely in FORTRAN. Those segments of control programs 
handling special user interrupts, for example, must be written in assembly language. 
Moreover, RT FORTRAN calls parallel closely their assembly language counter- 
parts; a thorough understanding of RDOS will therefore facilitate the use of RT 
FORTRAN. 

The following summarizes DGC Real Time concepts and illustrates the relationship 
be^A^een RT FORTRAN Task calls and RDOS Task calls. A task is a logically com- 
plete execution path through a program demanding use of system resources, primarily 
CPU control. A multitask environment is one in which logically distinct tasks com- 
pete simultaneously for the use of system resources; a single task environment in 
RT FORTRAN is a trivial subset of a multitask environment. By default, RT FOR- 
TRAN programs have one task; this task is used to create other tasks if m_ore 
are needed. 

Only one task receives CPU control at any single moment. CPU control is allocated 
to tasks according to their relative priorities and readiness to use the CPU. Re- 
source allocation is accomplished by the RDOS minimum Task Scheduler, TMIN, in 
single task environments; the FORTRAN Task Scheduler, TMAX, allocates CPU 
control to the highest priority ready task in a multitask environment. Note that the 
RDOS Task Scheduler, TCBMON, differs from the FORTRAN multitask scheduler. 

Task priorities range from zero, the highest priority, through 255 decimal. The 
default task in RT FORTRAN exists at priority zero. Several tasks may exist at 
the same priority. Among equal priority tasks, the time of a task's creation or task 
priority modification determines the relative priority of the task within a priority 
level. The first task created at a given priority has the highest priority within that 
priority level, etc. There is no practical Limit to the number of tasks which may be 
created within any program. Nonetheless, users are cautioned to request only the 
minimum number of tasks necessary for the running of an RT FORTRAN program in 
order to minimize system overhead and to maximize the size of run time stacks 
allocated for each task. 
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Tasks may exist in any of four states. Tasks are either ready to perform their functions, 
they are actuaUy in control of the CPU and are executing their assigned instruction paths ^ 
they are suspended and temporarily unable to receive CPU control, or they are dormant , 
having no priority and no chance of gaining CPU control until readied by an FTASK or IT ASK 
command. Executing, ready, and suspended tasks are Unked in a queue called the active 
chain. Tasks which have been deleted are removed from the active chain and are placed 
in the inactive chain. The Task Scheduler maintains certain status information about 
each task. This information is retained within an information structure called a Task 
Control Block (TCB). There is one TCB for each task. The active chain is in reality the 
collection of all active TCBs, linked in priority fashion. The inactive chain is merely 
a pool of empty TCBs which may be used in the creation of new tasks. Whenever a 
task receives control,that task's state variables (AC's, Carry, etc.) are re-established; 
these state variables are saved in the task's TCB whenever the task is reduced to the 
ready or suspended states. Tasks may be assigned unique i. d. numbers in the range 
0-255io; this is especially helpful in distinguishing equal priority tasks. Only the highest 
priority ready task will be given control of the CPU, and other ready tasks await their 
turn in priority fashion. Suspended tasks are tasks that were once ready. A ready 
task becomes suspended for one or more of a variety of reasons: 

1. It has been suspended by SUSP, ASUSP, or HOLD . 

2. It is waiting for a message from another task or awaits the receipt 
of the message (REC/XMTW). 

3. It is awaiting completion of a . SYSTM call. 

4. It is waiting for the use of an overlay. 

Just as a number of different events may suspend a ready task, several events can cause 
suspended tasks to become readied: 

1. A . SYSTM call has been completed. 

2. A message has been posted for a suspended task awaiting its receipt. 

3. Another task readied a suspended task via . ARDY or . TIDR . 

4. An overlay or overlay area is ready for use. 

If a task is suspended for two distinct reasons (e.g. , HOLD and awaiting completion 
of a . SYSTM call), it must be readied by two different events (e. g. , . TIDR and 
completion of . SYSTM call). 

Return from a FORTRAN Task call is always either to an error return location (if 
there is one reserved and an error occurs) or to the next sequential instruction 
following the call. After the task call has been performed, however, both returns are 
always routed through the FORTRAN Task Scheduler. 

RT FORTRAN permits tasks to communicate with one another by sending and receiving 
one word non-zero messages. A one word message (i. e. , one which can be stored in 
a single 16-bit cell), is sent to a task in an agreed upon location. The task sending a 
message may either return control to the Task Scheduler immediately or it may wait 
and place itself in the suspended state until the receiving task has issued a receive 
request and has received the message. Upon receipt of the message, the receiving 
task reverts to the ready state. Interrupt requests from special (i. e. , non-SYSGENed) 
devices do not change the status of tasks in a multitask environment; these events freez^ 
the environment, as will be described later. 
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Run Time Stack Partitioning 

Number formats in RT FORTRAN routines are identical to those given in the 
Introduction to this manual. Similarly, the SP, Number, and Run Tim.e Stacks 
are structured and maintained as described for non-real time routines. The 
major difference in the whole run time stack structure is that the Run Time area 
is partitioned by the RT initializer into equal segments, one segment for each 
task specified at the beginning of the FORTRAN program. 

Each run time stack segment can be viewed for the most part as a non-real 
time stack area in miniature. That is, each segment has an SP stack. Number 
Stack, and Run Time stack in that order. The SP stack is 40 octal words in 
length, but the two other stacks are necessarily smaller than their non-real 
time stack counterparts . Each segment Number Stack is 330 octal words long, 
and each Run Time stack will have the remainder of the segment area. It is 
not possible to either adjust the number stack size or to omit the allocation 
of a Number Stack on a selective basis. 

Since each segment requires a family of pointers and displacements to des- 
cribe it uniquely, each segment is preceded by an eight word state save area. 
In this area are stored values for the following segment stack pointers and 
flags : 

FSP 

.NDSP 

AFSE 

SP 

QSP 

.OVFL 

.SVO 

NSP 

Immediately preceding each state save area , the first word of each stack 
serves as both link to the beginning of the next segment and as a flag (bit zero) 
indicating whether or not a task is currently using the segment. 
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Previous Stack Segment 



lOg words 

lOg words 
408 words 



330g words 



Segment Size - 4013 words 



Use 
Bit 



Link to Next Segment 



STATE SAVE AREA 



SP STACK 



NUMBER STACK 



RUN TIME VARIABLE 
STACK 



Use 
'Bit 



Link 



RUN TIME STACK SEGMENT 



User Interrupts 



As Indicated earlier users wishing to incorporate non-SYSGENed devices into 
RT FORTRAN programs must provide for the interrupt servicing to be done in 
assembly language and the creation of a three-word Device Control Table as de- 
tailed in Chapter 7 of the RDOS USER'S MANUAL, User Serviced Interrupts . 
Procedures given throughout this manual will be used to write assembly language 
modules which will be interfaced with the main RT FORTRAN program. 

Interrupt requests from special (i.e. , non-SYSGENed) devices do not, for the most 
part, change the status of tasks in a FORTRAN multitask environment. In- 
stead, user interrupts freeze the environment until servicing of the interrupt 
is completed and the multitask environment is unfrozen. Likewise, all other 
tasks will resume their former states when the environment becomes unfrozen 
unless the user transmits a message to one of them by means of the transmit 
interrupt message command, . IXMT . 
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User Interrupts (Continued) 

Since control does not go through the FORTRAN Task Scheduler when the environ- 
ment is unfrozen, . IXMT is not a command which can be issued via FORTRAN source 
code; rather, . IXMT is a one -word Task call Identical to . KMT discussed 
in the RDOS User's Manual, Chapter 5. As stated there, if the task for whom the 
message is intended has issued a receive request for the message, thetasr^ state 
is changed from suspended to ready even though the task environment is frozen. This 
is the one exception to the rule that user interrupt servicing does not alter the task 
environment. 

It is still necessary, however, to identify the interrupt device to the system by means 
of a FORTRAN call, and it is possible to remove this device from the system by means 
of another FORTRAN call. 



RT FORTRAN Routine Descriptions 

The following seven sectTohs describe all the real time routines of interest to RT FORTRAN 
programmers. The sections and their contents are: 



REAL TIME INITIALIZATION 



Initialization and stack segmentation 
routines. 



REAL TIME TASK 



Real time single and multitask environment 
management routines. 



REAL TIME CLOCK/CALENDAR 



System clock and calendar management 
routines. 



REAL TIME INTERRUPT 



Real Time routines used to identify or 
remove special user devices from the 
system. 



REAL TIME SWAP AND OVERLAY 



Routines implementing the RDOS swap 
and overlay management calls. 



REAL TIME FILE AND I/O 



File management with block and file 
I/O RDOS commands. 



REAL TIME BIT MANIPULATION 



Routines allowing individual bits to 
be tested, set and cleared within 16 bit 
words. 



Note that not all of the supporting routines listed for .1 and ITCB are descri bed. Similarly, 
other routines used by the FORTRAN Task Scheduler or by other internal routines 
are mentioned but are not described. Only the two main initialization routines are 
given since an understanding of these suffices to describe the structuring of the real 
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RT FORTRAN Routine Descriptions (Continued) 

time run stack. Real time programmers wishing to write their own initialization pro- 
cedures must first consult the program listings of all routines in the initialization 
package. All real time programs, even those with only one active task, require the 
support of the real time initialization routines. 

All routines described in the REAL TIME TASK section have functions which parallel 
closely the functions of RDOS task calls. None of these routines is of use in a single 
task environment. As stated in the RDOS User's Manual, the killing of all tasks 
causes return of program control to the next higher program level, usually the CLI 
(Command Line Interpreter). Similarly, depressing either the teletypewriter keys 
CTRL and A or CTRL and C interrupts the program and causes return to be made 
to the CLI. The CTRL A break aborts an RT FORTRAN program with no facility for 
preserving the current environment. CTRL C permits a qualified saving of the real 
time environment; for more information, see the RDOS User's Manual, Chapter 2. 

Routines described in both the REAL TIME CLOCK/CALENDAR and REAL TIME 
INTERRUPT sections are useful in both single and multitask environments. 

RDOS FORTRAN Error Arguments 

Several routines in the RDOS FORTRAN library have an error argument which receives 
a code character at the completion of the routine's execution. This code character 
describes the success or failure of the routine's execution. The settings of this code 
are as described below: 

Setting Meaning 

Indeterminate error. 

1 No error occurred. 

3. . . n RDOS system error code + 3 

Error code 2 is generally not used. Thus if the error argument is placed in blank 
common, the user may define code 2 for use in intertask communication endowing this 
code with whatever meaning he wishes. 

One such possible definition would be the definition given to 2 by FOVLD, i.e. , 

that system action is in progress. FOVLD changes this code to one of the other settings 

upon completion of the call. 
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REAL TIME INITIALIZATION 

.1 E-9 

ITCB E-11 
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Real Time 
Initialization 



Purpose : To partition the free memory area into equal segments for the 

creation of each task's run time stacks; to allocate a blank common 
area if needed; to build an I/O Channel Assignment Table 
initialized to the default values of the logical FORTRAN channels; 
to allocate number, SP, and run time stacks and create the 
associated stack pointers for the first task by means of a call 
to the TCB initializer. 

Real Time , I receives control in the same manner that . I 
used in DOS environments receives control, i. e. , by means 
of an end block which has the starting address . 1 . 

. I invokes the TCB Initializer (. ITCB) , after which it transfers 
control to the FORTRAN Task Scheduler. 

Supporting Routines • DVD, .MAIN, QUIT, SVVAR, TVR; FLSP, . FTSCH, . INHB 

. lOCAT, . OVFL, . SOSW, SP, SUCOM . 



Calling Sequence : 



Subroutine Size: 



Notes to User: 



2 page zero locations and 403 octal locations of normally relocatable 
memory. The Channel Assignment Table, 60 octal locations 
in length, is written over a portion of . I after that part of the 
initialization code has been executed. 

ITCB, the FORTRAN Task Control Block InitiaUzer, has an 
alternate entry point in the . I module. 

The following describes the functions performed by . I in the 
sequence that they occur. 

A system call, .RESET, is issued to initialize system I/O. 
USTCS of the User Status Table (UST) is examined to determine 
the size of blank common. (For a description of the User 
Status Table see the RDOS User's Manual, Chapter 5.) Blank 
common is then allocated, if possible, and a pointer to the 
start of blank common is created. If there is not enough memory 
available for blank common allocation, an error message is 
output. 



MEMOVFL ). 

and a return to the next higher program level (usually the CLI) 
is made by means of . SYSTM, . RTN . 
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Real Time 
Initialization 



J 



I (Continued) 



Notes to User : 
(Continued) 



A temporary SP stack is then created (and will later be over- 
written); this SP stack is required for the following operation, 
which calls DVD, The number of tasks and FORTRAN channels 
which will be required is determined by examining USTCH 
of the UST. DVD is then called, and the remaining free memory 
is partitioned into equal segments for each of the task's later 
inin time use. Each run time segment has a link to the following 
segment built into its first word, and a flag bit is allocated 
to indicate whether the segment has yet been assigned to a 
specific task. 



ITCB is then called, setting up stacks and stack pointers in 
the first run time segment area for the first FORTRAN task. 
The Channel Assignment Table is then built over the beginning 
of .1 code; this code, having once been executed, is of no 
further use in a multi-task environment. Upon completion of 
this last operation, control is given to the FORTRAN Task 
Scheduler. 

As with the single task initializers, the multitask initializer 
also has three additional entries which return control to either 
the debugger or to the next higher level program (usually the 
CLI), as in the event of a run time error. These entries are 
FERTN, FERTl, and FERT|3. FERTN transfers control to the 
CLI via the call . SYSTM, .RTN . FERT0 transfers control 
to the CLI via the call . SYSTM, . ERTN . FERTl transfers control 
to the debugger. 

Note that this version of . I is used only in multitask programs. 
Single task FORTRAN programs use the single task version 
of . I given in Chapter 10. 
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ReaL Time i 
Initializat-ion\ 



ITCB 



Purpose : 
Calling Sequence: 



To allocate number, SP, and run time stacks and stack 
pointers in a FORTRAN task's run time segment area. 

(The priority of the task which is to be assigned the stack area 
segment is input in AGO, ACl contains the starting address 
of the task's TCB^ 



JSR @.1TCB 

(The following variables are initialized for the task: 
SP; NSP, .NDSP, AFSE, . lOCAT, FSP, QSP, . OVFL . ) 

Supporting Routines : DVD, .MAIN, QUIT, SVVAR, TVR; FLSP, . FTSCH, . INHB, 

. lOCAT, . OVFL, . SOSW, SP, SUCOM . 



Subroutine Size; 



Notes to User: 



2 page zero locations and 403 octal locations of normally 
relocatable memory. 

. I, the Real Time FORTRAN Initializer, has an alternate 
entry point in this module. . I calls ITCB as part of the initial- 
ization process, and . ITCB is called each time a stack segment 
is to be used by a FORTRAN task for the first time. 
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REAL TIME TASK 

AKILL E-15 

ARDY E-16 

ASUSP E-17 

FTASK E-18 

KILL , E-19 

REC E-20 

SUSP E-21 

PRI E-22 

XMT, XMTW E-23 



E-13 



Real Time 
Task 



ABORT 



Purpose : 



Calling Sequence: 



To kill a task specified by i. d. number. 

FCALL 

ABORT 

Integer 2 

FORTRAN ADDRESS of i. d. number 

FORTRAN ADDRESS of error code 



Supporting Routines: FRET, KTID; . CFYL 

Subroutine Size : 15 octal locations of normally relocatable memory. 



Notes to User: 



Accumulators and carry are saved in the caller's TGB (unless 
it is the caller who is killed). 

ABORT must be referenced in an . EXTN statement. 

The calling task itself may be killed by this call. 
The TGB which is removed from the active queue is placed 
in the free element TGB chain. The specified task is 
not killed immediately only if it is suspended due to an 
outstanding . SYSTM call, in which case it is killed as 
soon as the . SYSTM call is completed. 

If no task exists with the specified i. d, number, no action 
is taken, and control goes to the scheduler. 
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AKILL 

Purpose : 
Calling Sequence : 



Supporting Routines: 
Subroutine Size : 
Notes to User: 




To delete all tasks of a given priority. 

FCALL 
AKILL 

FORTRAN ADDRESS of the task priority 

(Control returns to the FORTRAN Task Scheduler. ) 

KILL; . CPYL, . FTSCH, . INHB, , SVALL, SP . 

60 octal locations of normally relocatable memory. 

Accumulators and carry are saved in the caller's TCB (unless 
the caller is also deleted). 

AKILL must be referenced by an . EXTN statement. 

ARDY and ASUSP have alternate entry points in this module. 

The calling task itself may be deleted by means of this command. 
All TCBs that are removed from the active queue are placed 
in the free element TCB chain. If a task to be deleted by AKILL is 
suspended (e. g. , the task is awaiting completion of a system call) 
it will be killed as soon as it becomes ready. 



If no task exists at the given priority, this call is an effective 
no-op, and control goes to the Scheduler. 
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Beat Time 
Task 



ARDY 

Purpose : 
Calling Sequence : 



To ready all tasks of a given priority. 

FCALL 

ARDY 

Integer 1 

FORTRAN ADDRESS of the Task Priority 

(Control returns to the FORTRAN Task Scheduler. ) 



Notes to User: 



Supporting Routines: KILL; .CPYL, .FTSCH, .INHB, .SVALL, SP . 
Subroutine Size: 60 octal locations of normally relocatable memory. 

Accumulators and carry are saved in the caller's TCB . 

ARDY must be referenced by an . EXTN statement. 

ASUSP and AKILL have alternate entry points in this module. 

This command unconditionally readies all tasks of the given 
priority. It is the caller's responsibility to insure that the 
tasks to be readied are not awaiting the occurrence of some 
other event like the completion of I/O. 
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Real Time 
Task 



CHNGE 

Purpose: 
Calling Sequence: 



To change the priority of a task specified by i. d. number. 

FCALL 

CHNGE 

Integer 3 

FORTRAN ADDRESS of i. d. number 

FORTRAN ADDRESS of new priority 

FORTRAN ADDRESS of error code 



Supporting Routines : FRET, TCHNG; . CPYL 

Subroutine Size: 16 octal locations of normally relocatable memory. 

Notes to User : Accumulators and carry are saved in the caller's TCB. 

The error code word will be set to one of the following states: 

- Indeterminate error. 

1 - No error occurred. 

3. . . n - System error code + 3 

CHNGE must be referenced in an . EXTN statement. 
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Real Til 
Task 



ASUSP 

Purpose : 
Calling Sequence : 



To suspend all tasks of a given priority. 

FCALL 

ASUSP 

Integer 1 

FORTRAN ADDRESS of the task priority 

(Control returns to the FORTRAN Task Scheduler. ) 



Supporting Routines: 
Subroutine Size: 
Notes to User: 



KILL; .CPYL, . FTSCH, .INHB, .SVALL, SP . 

60 octal locations of normally relocatable memory. 

Accumulators and carry are saved in the caller's TCB . 

ASUSP must be referenced by an . EXTN statement. 

AKILL and ARDY have alternate entry points in this module. 

The calling task may itself be suspended by this command. 
The suspended tasks can be readied only by an . ARDY command. 
If no tasks exist at the given priority, this call is an effective 
no-op. 
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HOLD 



Real Time 
Task 



Purpose: 



uaiiing sequence: 



Notes to User: 



To suspend a task specified by identification number. 

FCALL 

HOLD 

Integer 2 

FORTRAN ADDRESS of i. d. number 

FORTRAN ADDRESS of error code 

Supporting Routines: FRET, STID; . CPYL 

Subroutine Size : 15 octal bcations of normally relocatable memory. 

Accumulators and carry are saved in the caller's TCB. 

HOLD must be referenced in an . EXTN statement. 

This call sets bit 1 of the task's priority and status word, 
TPRST. Thus if the task is already suspended for some 
other reason (e.g. , XMTW.REC, or . SYSTM call), it becomes 
doubly suspended and can be readied only when all its suspend 
bits have been set to ready. 

The error code word will be set to one of the following states: 

- Indeterminate error. 

1 - No error occurred. 
3. . . n - RDOS system error code + 3. 
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Real Time 
Task 



ITASK 



Purpose: 



Calling Sequence: 



To create a task in a real-time FORTRAN environment and 
assign a unique i. d. to the task. 

FCALL 

ITASK 

Integer 4 

FORTRAN ADDRESS of Task Entry Point 

FORTRAN ADDRESS of Task I. D. 

FORTRAN ADDRESS of Task Priority 

FORTRAN ADDRESS of Error Code 

(Control returns to the FORTRAN Task Scheduler. ) 



Supporting Routines: 



CTASK, FRET; . CPYL 
Subroutine Size: 24 octal locations of normally relocatable memory. 

Notes to User: Accumulators and carry are stored in the caller's TCB. 

ITASK must be referenced in an . EXTN statement. 

The error code word will be set to one of the following 
states: 

- Indeterminate error. 

1 - No error occurred. 

3. . . n - System error code + 3. 
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Real Time 
Task 



FTASK 



Purpose : 
Calling Sequence ; 



To create a task in a real-time FORTRAN environment. 

FCALL 

FTASK 

Integer 3 

FORTRAN ADDRESS of Task Code entry point 

FORTRAN ADDRESS of Error Return 

FORTRAN ADDRESS of Task Priority 

(Control returns to the FORTRAN Task Scheduler. ) 



Supporting Routines: . CPYL, . FTSCH, . INHB, . LNK, . SVALL , . ITCB, CTCB . 

Subroutine Size: 35 octal locations of normally relocatable memory. 

Notes to User: Accumulators and carry are saved in the caller's TCB . 

TASK must be referenced by an . EXTN statement. 

When the RT FORTRAN program is loaded and first run, 
only one task exists. This command must be Issued to create 
a multitask environment. The error return is taken if there 
are no TCBs available, i. e. , if the maximum number of 
tasks specified in CHANTASK was too small. 
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KILL 




Purpose : 
Calling Sequence : 



To kill (delete) the calling task, freeing its TCB so that a 
new task can be created. 

FCALL 

KILL 



(Control returns to the FORTRAN Task Scheduler. ) 



Supporting Routines: 
Subroutine Size: 
Notes to User: 



.FTSCH, .INHB, . ULNK . 

25 octal locations of normally relocatable memory. 

KILL must be referenced by an . EXTN statement. 

This command deletes the calling task's TCB from the active 
queue and places it in the free element TCB chain. The 
calling task is the only task that can be deleted via this 
command. There is no return from this call. The stack 
block associated with the deleted task is released. 
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Eeal Time 
Task 



REC 



Purpose : 
Calling Sequence : 



To receive a one -word message from a transmitting task, 

FCALL 

REC 

Integer 2 

FORTRAN ADDRESS of the message location ("key location") 

FORTRAN ADDRESS to receive the one -word message 

(must be different from the key) 
(Control returns to the FORTRAN Task Scheduler. ) 



Supporting Koutines: 



Subroutine Size: 



Notes to User: 



.AFRTN, .CPYL, . FTSCH, . INHB, .KSRCH, .SVALL, CTCB . 

74 octal locations of normally relocatable memory. 

Accumulators and carry are saved in the caller's TCB. 

REC must be referenced by an . EXTN statement. XMT and 
XMTW have alternate entry points in this module. 

If the contents of the key location are non-zero at the time 
of this call (i.e. , if a message has been sent), the message 
is passed directly to the receiving task and the contents 
of the key location are reset to zeroes. If the contents of 
the key location are zero when this call is issued (i.e. , 
if the message has not yet been sent), the receiving 
task becomes suspended until the message is sent. When 
the message is transmitted, it is sent directly to the re- 
ceiving task, bypassing the key location entirely, and the 
receiving task becomes readied. 
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Real Time \ 
Task \ 



SUSP 

Purpose : 
Calling Sequence : 



Supporting Routines: 
Subroutine Size: 
Notes to User: 



To suspend the calling task. 

FCALL 

SUSP 



(Control returns to the FORTRAN Task Scheduler. ) 

.FTSCH, .INHB, .SVALL, CTCB . 

12 locations of normally relocatable memory. 

Accumulators and carry are saved in the caller's TCB . 

SUSP must be referenced by an . EXTN statement. 

The suspended task remains suspended until it is readied 
by an . ARDY command. 

PEND is equivalent to SUSP. 
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RELSE 



Real Time 
Task 



Purpose: 



To ready a task specified by i. d. number. 






Notes to User: 



RELSE 

Integer 2 

FORTRAN ADDRESS of i. d. number 

FORTRAN ADDRESS of error code 

Supporting Routines: FRET, RTID; .CPYL 

Subroutine Size: 13 octal bcations of normally relocatable memory. 

Accumulators and carry are saved in the caller's TCB. 

RELSE must be referenced in an .EXTN statement. 

This call resets bit 1 of the task's priority and status field 
word, TPRST. Thus if the task has bits and/or 12 set 
(e.g. , due to an outstanding . SYSTM call or a .REG/. XMTW), 
these bits would also have to be reset before the task could 
be raised to the ready state. 

The error code word will be set to one of the following 
states: 

- Indeterminate error. 

1 - No error occurred. 
3. . . n - RDOS system error code + 3. 
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Real Time 
Task 



STTSK 



Purpose: To obtain the status of a task specified by i. d. number. 

Calling Sequence : FCALL 

STTSK 
Integer 3 

FORTRAN ADDRESS of i. d. number 

FORTRAN ADDRESS of location to receive task status code 
FORTRAN ADDRESS of error code 

Supporting Routines: FRET, TIDST; . CPYL 

Subroutine Size: 10 octal bcations of normally relocatable memory. 

Notes to User: Accumulators and carry are saved in the caller's TCB. 

STTSK must be referenced in an . EXTN statement. 

The task status code will be one of the following: 

- Ready. 

1 - Suspended by a . SYSTM call 

2 - Suspended by SUSP, ASUSP, or HOLD 

3 - Waiting for a message to be transmitted 

or received. 

4 - Waiting for an overlay area to become free. 

5 - Suspended by SUSP, ASUSP, or HOLD and 

by a . SYSTM call. 

6 - Suspended by SUSP, ASUSP, or HOLD and by 

XMTW or REG. 

7 - Waiting for an overlay area and suspended 

by ASUSP, SUSP, or HOLD. 

8 - No task exists with this i. d. number. 

The error code word will be set to one of the following states: 

- Indeterminate error. 

1 - No error occurred. 

3. . . n - RDOS system error code + 3. 
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Real Time 
Task 



PRI 

Purpose : 
Calling Sequence : 



To change the priority of the calling task. 

FCALL 

PRI 

Integer 1 

FORTRAN ADDRESS of the new task priority 

(Control returns to the FORTRAN Task Scheduler. ) 



Supporting Routines : 
Subroutine Size: 
Notes to User: 



.CPYL, .FTSCH, .INHB, .SVALL,.LNK, .ULNK , CTCB . 

23 octal locations of normally relocatable memory. 

Accumulators and carry are saved in the caller's TCB . 

PRI must be referenced by an . EXTN statement. 

The calling task is assigned the lowest priority of all 
tasks within the new priority level. It is permissible to issue 
a PRI command without changing the caller's present priority 
level. This will cause the calling task to be assigned the 
lowest priority of all tasks within the given priority level. 
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XMT, XMTW 



Real Time 
Task 



Purpose : 



Calling Sequences : 



Supporting Routine s: 
Subroutine Size: 
Notes to User: 



To transmit a one-word message (XMT) to a receiving 
task, then remain ready to resume other task activity, 
or to transmit a message and wait (XMTW), staying 
suspended until the message is received. 

FCALL 

XMT (or XMTW) 

Integer 3 

FORTRAN ADDRESS of the message location ( key location ) 

FORTRAN ADDRESS of the error return 






(Control returns to the FORTRAN Task Scheduler. ) 

. AFRTN, . CPYL, . FTSCH, . INHB, . KSRCH, . SVALL , CTCB 

74 octal locations of normally relocatable memory. 

Accumulators and carry are saved in the caller's TCB. 

XMT and XMTW must each be referenced by an . EXTN 
statement. 

REC has an alternate entry point in this module. 

A one -word message is replaced in the key location if the 
task for whom it is intended has not yet requested its 
receipt. As soon as the receiving task issues a receive 
request, the message is placed in the address specified 
by the receiving task, and the contents of the key location 
are reset to all zeroes. If the receiving task has requested 
the message before its transmission, the message is sent 
directly to the receiver's address, bypassing the key loca- 
tion entirely. 

The error return is taken if the message address is already 
in use (i.e., its contents are non-zero ) . 
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REAL TIME CLOCK/CALENDAR 

DATE E-27 

FDELY E-28 

FGTIM E-29 

FSTM E-30 

TIME E-31 
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neat Time 

Cloak/ 
Calendar' 



DATE 

Purpose : 
Calling Sequence : 



Supporting Routines: 
Subroutine Size: 
Notes to User: 



To get the current day of the year. 

FCALL 

DATE 

Integer 2 

FORTRAN ADDRESS of date array 

FORTRAN ADDRESS of error code 

FRET ; . CFYL . 

16 octal locations of normally relocatable memory. 

Accumulators and Carry are restored upon exit. 

This routine issues the RDOS system call, . GDAY. The date 
is returned as the number of the current day of the year and 
is stored in the secondwordofthe date array. This array is 
an integer array of at least three words. 

The error code word will be set to one of the following states: 

- Indeterailnate error. 

1 - No error occurred. 
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Real Time 

Clock/ 
Calendar 



FDELY 



Purpose : 
Calling Sequence : 



To suspend a FORTRAN Task for a specijQed period of 
time. 

FCALL 

FDELY 

Integer 1 

FORTRAN ADDRESS of time interval 

(Control returns to the FORTRAN Task Scheduler. ) 



Supporting Routines : FRET; .CPYL . 

Subroutine Size: 7 octal locations of normally relocatable memory. 

Notes to User: Accumulators and carry are stored in the caller's TCB. 

FDELY must be referenced in an . EXTN statement. 

This time interval word indicates the number of real time clock 
pulses during which the task will be suspended. (The real time 
clock frequency was set at SYSGEN time. ) 
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FGTIM 

Purpose : 
Calling Sequence : 



neat- 'i'vme 

Cloak/ 
Calendar 






To get the time of day and current date. 

FCALL 
FGTIM 

Tnf fitrpr 4 

o — * 

FORTRAN ADDRESS to receive the hour 
FORTRAiN ADDRESS to receive the minute 
FORTRAN ADDRESS to receive the second 
FORTRAN ADDRESS to receive the current date 

(Control returns to the FORTRAN Task Scheduler. ) 



Supporting Routines: FRET; . CPYL, . RTER . 
Subroutine Size : 41 octal locations of normally relocatable memory. 



Notes to User: 



Accumulators and carry are stored in the caller's TCB. 
FGTIM must be referenced in an . EXTN statement. 

No error message is possible; the system does not reset the 
current date to 1 at the end of the year. Instead it continues 
to increment the date count. 

The time of day is given by a 24 hour clock; the date is given 
as an integer from 1 through 365 (or 366 for leap years). 

FSTIM has an alternate entry point in this module. 
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Real Time 

Cloak/ 
Calendar 



FSTIM 

Purpose : 
Calling Sequence : 



To set the system clock and system calendar. 

FCALL 

FSTIM 

Integer 4 

FORTRAN ADDRESS of the current hour 

FORTRAN ADDRESS of the current minute 

FORTRAN ADDRESS of the current second 

FORTRAN ADDRESS of today's date 

(Control returns to the FORTRAN Task Scheduler. ) 



Supporting Routines: FRET; .CPYL, .RTER . 

Subroutine Size: 41 octal locations of normally relocatable memory. 

Notes to User: Accumulators and carry are stored in the caller's TCB. 

FSTIM must be referenced in an . EXTN statement. 

A fatal run time error message, ERTIM, is issued if an 
attempt is made to set an illegal time or date. Upon 
issuance of an error message, control returns to either the 
Debugger or to the CLI. 

The system clock is a 24 hour clock; the system calendar is 
simply an integer from 1 to 365 (or 366 for a leap year). 
The system does not reset the system calendar to 1 on January 
r, instead it continues to increment the date count. 

FGTIM has an alternate entry point in this module. 
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Real Time 

Clock/ 
Calendar 



TIME 

Purpose : 
Calling Sequence : 



Supporting Routines: 
Subroutine Size: 
Notes to User: 



To get the current time of day. 

FCALL 
TIME 

IXlLtgCJL ^ 

FORTRAN ADDRESS of time array 
FORTRAN ADDRESS of error code 

FRET; .CITL . 

16 octal locations of normally relocatable memory. 

Accumulators and Carry are restored upon exit. 

This routine issues the RDOS system call, . GTOD . The time 
is returned in the order: hours, minutes, and seconds, and is 
stored in the time array. This array is an integer array of at 
least three words. 

The error code word will be set to one of the following states: 

- Indeterminate error. 

1 - No error occurred. 
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REAL TIME INTERRUPT 

FINRV E-35 

FINTD E-36 

.EXMT E-37 
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FINRV 

Purpose : 
Calling Sequence : 



Real Time 
Interrupt 



To remove a non-SYSGENed device, which had been identified 
by FINTD, from the system's recognition, 

FCALL 

FINRV 

Integer 1 

FORTRAN ADDRESS of the device code 

(Control returns to the Task Scheduler. ) 



Supporting Routines: FRET; . CPYL, . RTER . 

Subroutine Size: 21 octal locations of normally relocatable memory. 



Notes to User: 



Accumulators and carry are saved in the caller's TCB. FINRV 
must be referenced by an . EXTN statement. FINTD has an 
alternate entry point in this module. 

This call removes the device entry from the system interrupt 
vector table. 

A system error code ERDNM is output, with consequent 
return to the CLI if an illeeal device code 1r o-iv^n. 
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Real Time 
Interrupt 



FINTD 



Purpose: 



Calling Sequence : 



To introduce to the system a non-SYSGENed device capjable of 
generating interrupt requests. 

FCALL 

FINTD 

Integer 2 

FORTRAN ADDRESS of the device code 

FORTRAN ADDRESS of the three word DCT 

(Control returns to the Task Scheduler). 



Supporting Routines: FRET; . CPYL, . RTER . 

Subroutine Size: 2 1 octal locations of normally relocatable memory. 



Notes to User: 



Accumulators and carry are saved in the caller's TCB. FINTD 
must be referenced in an . EXTN statement. FINRV has an 
alternate entry point in this module. 

This call causes an entry for this device to be placed in the 
system interrupt vector table. 

A system error code ERDNM is output, with consequent return 
to the CLI, if an illegal device code is given. 
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IXMT 



Real Time 
Interrupt 



Purpose: 



ualling Sequence: 



To transmit a message from a user interrupt service routine to 
a task in the multitasking environment. 

FCALL 

IXMT 

Integer 3 

FORTRAN ADDRESS of the message address 

FORTRAN ADDRESS of the message 

FORTRAN ADDRESS of the error code 



Supporting Routines: FRET, IXMTT; . CPYL 

Subroutine Size : 16 octal locations of normally relocatable memory. 



Notes to User: 



Accumulators and carry are restored upon exit. Return is to the 
caller, not to the task scheduler. This routine is issued only 
in a user Interrupt routine, outside the multitasking environment. 
For more information about user interrupt routines, see the 
RDOS User's Manual, Chapter 7. 

IXMT must be referenced in an . EXTN statement. 

The error code word will be set to one of the following states: 

- Indeterminate error. 

1 - No error occurred. 

3. . . n - RDOS system error code + 3. 
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REAL TIME OVERLAY AND SWAP 

FBACK E-41 

FCHAN E-42 

FOVLD E-43 

FOVLY E-45 

FOVRL E-46 

FQTASK E-47 

FSWAP E-49 

OVOPN E-50 
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Overlay and Swap 



FBAciK 

Purpose : 
Calling Sequence : 

Supporting Routines: 
Subroutine Size: 
Notes to User: 



To read in from disk the next higher level program swap, 

FCALL 
FBACK 

FERT0, FERTN; .CPYL, .FRET, .RTER. 

43 octal locations of normally relocatable memory. 

The calling program is overwritten and its accumulators and 
carry are lost. Information can be passed to the higher level 
program swap via blank common. 

When the higher level program swap is read into core, 
control goes to the highest priority ready task within the swap. 

FCHAN and FSWAP have alternate entry points in this routine. 
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Real Time 
Overlay and Swap 



FCHAN 



Purpose: 



Calling Sequence: 



Supporting Routines: 
Subroutine Size: 
Notes to User: 



To perform a program chain. A new save file is read from disk, 
overwriting the current core image while not changing program 
levels. 

FCALL 

FCHAN 

Integer 1 

FORTRAN ADDRESS of the save file name 

FERTJ3, FERTN; . CFYL, . FRET, . RTER . 

43 octal locations of normally relocatable memory. 

Since the calling program is overwritten, accumulators and 
carry are not saved. Information can be passed via blank 
common, since blank common is not overwritten during program 
swapping or chaining. 

When the program chain is read into core, control goes to 
the highest priority ready task within the new save file. 

Control is returned to the higher program level by the FORTRAN 
call FBACK. 

FCHAN and FBACK have alternate entry points in this routine. 

Since this routine issues the RDOS system call . EXEC, more 
information about program swaps can be found in the RDOS User's 
Manual. 
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FOVLD 



neaL Time 
Overlay and Swap 



^^PQ^^= To load a FORTRAN overlay into an overlay area. (This 

routine is for use in multitask environments. ) 

Calling Sequence: FCALL 

J. ■*^ T t MM M 

Integer 4 

FORTRAN ADDRESS of the channel number upon which the 

overlay file has been opened 
Overlay number 

FORTRAN ADDRESS of the conditional load flag 
FORTRAN ADDRESS of the error code 

Supporting Routines: FRET, KILL, SVVAR; . lOCAT, . CPYA, . CFYL, . KSRCH, 

.FTSCH, CTCB, .INHB . 



Subroutine Size: 



Notes to User: 



206 octal locations of normally relocatable memory. 

Accumulators and carry are restored upon exit. 

The overlay file which is to be used in this call must have 
been opened previously by a call to OVOPN. The overlay number 
is a word which contains the overlay area number in its 
left byte and the overlay number within its right byte. This 

niimhfiT miifit hav*^ tvafsn Hoo1o-i-q<^ ai4-Ke>i- in nn •I:^■^T'TV-^ »^«..^ ^ 

■— -^w*-" <^>.wj.u.^«^vi v,xuxv.x Xil CUl . iilN XV-< OtctLCliiClll 

or an OVERLAY statement. 

The conditional load flag is a word which is set to be either 
zero or non-zero. If zero, overlay loading is to be done 
unconditionally; if non-zero, overlay loading is to be done 
conditionally. 

In conditional loading, if the overlay area is free the overlay 
is loaded (unless it is abready core resident, in which case 
return is made directly to the Task Scheduler). An 
area is considered to be free if the overlay use count of the 
currently resident overlay has gone to zero and if the area has 
been released by the FOVRL call. 

In unconditional loading, if an area is free the requested overlay 
is loaded regardless whether it Is currently core resident or 
not. If the area is not free, the caller is suspended until the 
area is released. For more information about conditional and 
unconditional overlay loading, see the RDOS User's Manual. 
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Real Time 
Overlay and Swap 



FOVLD (Continued) 
Notes to User: 



(Continued) 

FOVRL has an alternate entry point in this routine. 

The error code word will be set to one of tte following states: 

- Indeterminate error. 

1 - No error occurred. 

2 - System action in progress. 

3. . . n - RDOS System error code +3 . 

This routine is found in the FORTRAN multitask library. 
To cause this routine to be loaded (instead of FOVLD, the 
single task overlay load module), the multitask library 
must precede the RDOS FORTRAN library when relocatable 
loading is performed. 
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Real Time 
Ovevlaxj and Swap 



FOVLY 
Purpose: 

Calling Sequence: 



Supporting Routines: 
Subroutine Size: 
Notes to User: 



To load a FORTRAN overlay into an overlay area. (This 
routine is for use in single task environments. ) 

FCALL 

FOVLD (or OVLOD) 

Integer 4 

FORTRAN ADDRESS of the channel number upon which the, 

overlay file has been opened. 
Overlay number 
FORTRAN ADDRESS of the conditional load flag 

FORTR AN AnnRPSq nt tV,a c^TT^T '-^'^p 

FRET; .CPYA, . lOCAT 

46 octal locations of normally relocatable memory. 

Accumulators and carry are restored upon exit. 

The overlay file which is to be used in this call must have 
been opened previously by a call to OVOPN. The overlay 
number is a word which contains the overlay area number 
in its left byte and the overlay number within its right byte. 
This number must have been declared either by an . ENTO 
pseudo op or in a FORTRAN OVERLAY statement. 

The conditional load flag is a word which is set to be either 
zero or non-zero. If zero, overlay loading is to be done 
unconditionally; if non-zero, overlay loading is to be done 
conditionally. 

In conditional loading, the number of the currently loaded 
overlay is checked. K it is the same as the requested overlay, 
return is made immediately to the caller. Otherwise the 
requested overlay is loaded. 

In unconditional loading, the requested overlay is loaded 
regaixlless ofwhether itis currently core resident or not. For 
more information about conditional and unconditional overlay 
loading, see the RDOS User's Manual. 

OVLOD is equivalent to FOVLD. 

The error code word will be set to one of the following states: 

- Indeterminate error. 

1 - No error occurred. 

3. . . n - RDOS System error code + 3. 

This routine is found in the RDOS FORTRAN Run Time library. 
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FOVRL 



Purpose : 
Calling Sequence : 



Supporting Routines: 



Subroutine Size: 



Notes to User: 



To release an overlay area. 

FCALL 

FOVRL 

Integer 2 

Overlay number 

FORTRAN ADDRESS of the error code 

FRET, KILL, SVVAR; . lOCAT, . CPYA, . CPYL, . KSRCH, 
, FTSCH, CTCB, . INHB . 

206 octal locations of normally relocatable memory. 

Accumulators and carry are restored upon exit. The overlay 
number is a word which contains the overlay area number in 
its left byte and the overlay number within its right byte. The 
overlay number must have been declared in either a . ENTO or 
an OVERLAY statement. 

This call should be issued each time a user completes his use 
of a given overlay (i. e. , it decrements the overlay use count). 
When no users remain who wish to use the currently resident 
overlay (i. e. , the overlay use count goes to zero), the overlay 
area becomes free for the loading of other overlays. 

This call must not be issued from within the overlay area 
which is to be released. 

The error code word will be set to one of the following states: 

- Indeterminate error. 

1 - No error occurred. 

3. . .n - RDOS system error code + 3 . 

FOVLD has an alternate entry point in this routine. 
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FQTASK 
Purpose: 



To load a user overlay and periodicaUy execute a task within 
the overlay or to periodically execute a core-resident task. 



Calling Sequence : FCALL 

Integer number of arguments, 4 or 5 
Overlay number or dummy argument 
FORTRAN ADDRESS of task entry point 
FORTRAN ADDRESS of task queue array 
FORTRAN ADDRESS of error code 
optional FORTRAN ADDRESS of constant -1 
if a core resident task 

Supporting Routines : FRET, TQTSK; , CPYL 

Subroutine Size : 42 octal locations of normally relocatable memory. 

Notes to User : Accumulators and carry are saved in the caller's TCB; 

return is to the task scheduler. 

Note that the first argument is either an overlay number 
(not the FORTRAN ADDRESS of an overlay number) in the case of 
an overlay task or a dummy argument in the case of a core resident 
task. The overlay number is a word which contains the overlay 
area number in its left bvte and rhp nvpfiair TinmKoT- in i<-o ^i^^u*- u^^^ 

The task entry point is the entry point within either the overlay 
or the core resident task where program control is to begin execu- 
tion; this point must have been globally ENTered. 

The task queue array is a ISg word integer array, supplied by the 
user, whose elements contain the following parameters and whose 
displacements are given the following mnemonic assignments: 

Displacement Contents 



QPC 

QNUM 

QTOV 

QSH 

QSMS 

QPRI 



Used by the system. 

Number of times to execute task. 

Used by the system. 

Starting hour of task execution. 

Starting second within the hour QSH. 

Task priority. 
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Displacement Contents 

QRR Rerun increment in seconds. 

QTLNK Used by system. 

QOCH Overlay channel number (dummy for 

core resident tasks). 
QCOND Overlay conditional load flag (dummy 

for core resident tasks). 
QCONI>l-l Task i. d. number. 

The error code word will be set to one of the following states: 

- Indeterminate error. 

1 - No error occurred. 

3. . . n - RDOS system error code + 3. 

The last parameter must be present and must point to a -1 
constant only if the task to be executed is a core resident task. 

FQTASK must be referenced in an . EXTN statement. 
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OVEXT 



Purpose: 



To release an overlay and return control to an address specified 
by the caller. This call is issued from within the overlay. If 
several binaries comprise the overlay, this call is issued from 
within the binary where the overlay name is defined via an 
nVF.RTAVr.T- T7\rrr> c,*-. 



Calling Sequence: 



v-/ kjudcciiient. 



FCALL 

OVEXT 

Integer 2 

overxay number or name 

FORTRAN ADDRESS of return 



Supporting Routines : FRET, TOVRL; .CPYL, . RTER 

Subroutine Size: 22 octal locations of normally relocatable memory. 



Notes to User: 



The overlay name may be used in place of the composite overlay 
number if the name has been defined in an OVERLAY or . ENTO 
statement. 

This call decrements the overlay use count and releases the 
overlay area if the count becomes zero. 

--wv,c.*ixuiu.Lwa.o cxnu L;aj.j.y ctxe saveu m me callers lUB. 

OVEXX has an alternate entry point in this routine. 

OVEXT must be referenced in an . EXTN statement. 
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OVEXX 



Purpose: 



Calling Sequence: 



To release an overlay and remrn control to an address specified 
by the caller. This call is issued from within the overlay. If 
several binaries comprise the overlay, this call is issued from 
within a binary other than the one which defines the overlay 
name via an OVERLAY or . ENTO statement. 

FCALL 

OVEXX 

Integer 2 

overlay number or name 

FORTRAN ADDRESS of return 



Supporting Routines : FRET, TOVRL; .CPYL, . RTER 

Subroutine Size: 22 octal locations of normally relocatable memory. 



Notes to User : 



The overlay name may be used in place of the composite overlay 
number if the name has been defined in an OVERLAY or . ENTO 
statement. 

This call decrements the overlay use count and releases the 
overlay area if the count becomes zero. 

Accumulators and carry are saved in the caller's TCB. 

OVEXT has an alternate entry point in this routine. 

OVEXX must be referenced by an . EXTN statement. 
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OVKIL 



Purpose: 



Calling Sequence: 



To kill a calling task and release its overlay. This call is issued 
from within the overlay. If several binaries comprise the overlay, 
the call is issued from within the binary which defines the overlay 
name via the OVERL.\Y or . ENTO statement. 

FCALL 

OVKIL 

Integer 1 

overlay number or name 



Supporting Routines : FRET, KILL, TOVRL; .CPYL, . RTER 
Subroutine Size: 20 octal locations of normally relocatable memory. 



Notes to Users: 



The overlay name may be used in place of the composite overlay 
number if the name has been defined in an OVERLAY or . ENTO 
statement. 

This call decrements the overlay use count and releases the 
overlay area if the count becomes zero. 

OVKIX has an alternate entry point in this routine. 

OVKIL must be referenced by an . EXTN statement. 
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OVKIX 



Purpose: 



To kill a calling task and release its overlay. This call is issued 
from within the overlay. If several binaries comprise the overlay, 
this call is issued from within a binary other than the one which 
defines the overlay name via an OVERLAY or . ENTO statement 



Calling Sequence : FCALL 

~ ~ OVKIX 

Integer 1 

overlay number or name 

Supporting Routines: FRET, KILL, TOVRL; .CPYL, . RTER 
Subroutine Size: 20 octal locations of normally relocatable memory. 



Notes to User: 



The overlay name may be used in place of the composite overlay 
number if the name has been defined in an OVERLAY or , ENTO 
statement. 

This call decrements the overlay use count and releases the 
overlay area if the count becomes zero. 

OVKIL has an alternate entry point in this routine. 

OVKIX must be referenced by an . EXTN statement. 
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FSWAF 

Purpose : 
Calling Sequence : 



Supporting Routines : 
Subroutine Size: 
Notes to User: 



Heal Time 
Overlay and Swap 



To save the current core image as a disk save file and read 
in a new save file at a lower program level. 

FCALL 

FSWAP 

Integer 1 

FORTRAN ADDRESS of the save file name 

FERT0, FERTN; .CPYL, .FRET, .RTER . 

43 octal locations of normally relocatable memory. 

The calling program is suspended and is saved on disk. The 
caller's task control block is used to save its accumulators, 
carry and PC to allow the caller to be resumed when control 
is transferred back to this level. Control is returned to the 
caller by the FORTRAN call FBACK. 

When the program swap is read into core, control goes to the 
highest priority ready task within the new save file. 

FCHAN and FBACK have alternate entry points in this routine. 

Since this routine issues the RDOS system call . EXEC, more 
information about program swaps can be found in the RDOS 
User's Manual, 

Information can be passed between the caller (the higher 
level program) and the lower level program via blank common, 
since blank common is not overwritten during program 
swapping or chaining. 
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QVOPN 

Purpose - 
Calling Sequence: 



Supporting Routines: 
Subroutine Size: 
Notes to User: 



To open an overlay file on a FORTRAN channel. 

FCALL 

OVOPN 

Integer 3 

FORTRAN ADDRESS of FORTRAN channel number 

FORTRAN ADDRESS of file name 

FORTRAN ADDRESS of error code. 

FRET; . CPYL, . lOCAT . 

147 octal locations of normally relocatable memory. 

Accumulators and carry are restored upon exit. 

APPEND and OPEN have alternate entry points in this routine. 

The file name is an ASCII byte string, including the file 
. OL extension. 

This routine issues the RDOS system call . OVOPN. Thus this 
routine must be used before FORTRAN overlays can be 
loaded in either a single or multitask environment. 

The FORTRAN routine FCLOS is used to close the overlay 
file and release its FORTRAN channel. 

The error code word will be set to one of the following states: 

- Indeterminate error. 

1 - No error occurred. 

3. . .n - RDOS system error code + 3 . 
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REAL TIME FILE AND I/O 

APPEND E-53 

CFILW E-54 

CLOSE E-55 

DFILW E-56 

DIR E-57 

FSTAT E-58 

GTATR E-59 

INIT E-60 

OPEN E-61 

RDBLK E-62 

READR E-63 

RESET E-64 

RLSE E-65 

WRBLK E-66 

WRITR E-67 



E-51 



APPEND 



Real Time 
File and I/O 



Purpose: 



To open a file so that new file information may be appended to 
that file. An optional blocking factor may be specified for the 
record size. 






Cr-A T T 



Notes to User: 



APPEND 

Integer number of arguments, 4 or 5 

FORTRAN ADDRESS of FORTRAN channel number 

FORTRAN ADDRESS of file name 

FORTRAN ADDRESS of open type indicator 

FORTRAN ADDRESS of error code 

FORTRAN ADDRESS of optional blocking factor 

Supporting Routines : . DSI, FRET, lOPTR; . CPYL, .lOCAT 

Subroutine Size : 174 octal locations of normally relocatable memory. 

Accumulators and carry are restored upon exit. 

OPEN and OVOPN have alternate entry points in this routine. 

The file name is an ASCII byte string. 

The open type indicator must be one of the following codes: 

2 - shared appending (more than one user) 

3 - exclusive appending (only one user) 

For a device like the magnetic tape, the file is first opened and 
spaced to the end-of-file; appending takes place from that point. 

The error code word will be set to one of the following: 

- Indeterminate error 

1 - No error occurred 
3. . . n - REXDS system error code + 3 

The blocking factor constant is an integer indicating the number 
of bytes/record. For random record I/O, the blocking factor 
should be 128. 

Up to 64 FORTRAN channel numbers are allowed, through 63. 
Append must be referenced by an . EXTN statement. 
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CFILW 

Purpose : 
Calling sequence : 



Supporting Routines: 
Subroutine Size: 
Notes to User: 



To create an RDOS disk file. 

FCALL 

CFILW 

Integer number of arguments to follow -- 3 or 4 

FORTRAN ADDRESS of file name 

FORTRAN ADDRESS of file type indicator 

optional FORTRAN ADDRESS of file size 

FORTRAN ADDRESS of error code 

FRET; .CPYL, .RTER . 

46 octal locations of normally relocatable memory. 

Accumulators and carry are restored upon exit. 

The file name is an ASCII byte string. 

The file type indicator is an integer. The following integers 
correspond to the listed file types: 



Integer Indicator 



1 
2 

3 



File Type 

Sequentially organized file. 
Randomly organized file. 
Contiguously organized file. 



The file size argument is used only when a contiguously organized 
file is being created. The file size is an integer describing the 
number of disk blocks in the file. 

The error code word will be set to one of the following states: 

- Indeterminate error. 

1 - No error occurred. 

3. . . n - RDOS system error code + 3 . 
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CLOSE 



Purpose : 



To free a FORTRAN logical channel under RDOS, and close the file 
associated with that channel. 






Cn A T T 



Notes to User: 



CLOSE 

Integer 2 

FORTRAN ADDRESS of logical channel number 

FORTRAN ADDRESS of error code 

Supporting Routines: FSAV, FRET, IMIO; . lOCAT, . RTER, . CPYL, . SOSW 

Subroutine Size: 57 octal locations of normally relocatable memory. 

Accumulators and carry are restored upon exit. 

The logical channel number is an integer constant with a value from 
through I5io« 

This routine issues the RDOS system call .CLOSE . 

The error code word will be set to one of the following states: 

1 - No error occurred. 
3... n - RDOS system error code + 3 . 

FCLOS has an alternate entry point in this routine. 
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DFILW 
Purpose : 
Calling Sequence: 



Notes to User: 



To delete a disk file. 

FCALL 

DFILW 

Integer number of arguments, 1 or 2 

FORTRAN ADDRESS of file name 

FORTRAN ADDRESS of optional error code 



Supporting Routines: FRET; . CPYL, . RTER 

Subroutine Size : 27 octal locations of normally relocatable memory. 

The file name is an ASCII byte string. 

This routine issues the RDOS system call . DELET. 

If a file requested to be deleted is open on one or more 
FORTRAN channels, the file will not be deleted. Instead, 
if no error code argument is supplied, a run time error 
message will be issued. If the error code argument is 
supplied, the error code will be set to one of the following 
states: 

- Indeterminate error 

1 - No error occurred 
3. . . n - RDOS system error code + 3 

Original contents of accumulators and carry are restored. 

DELET is equivalent to DFILW. 

DFILW must be referenced by an . EXTN statement. 
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DIR 



Purpose : 



To define a current default directory. 



Calling Sequence : FCALL 

DIR 

Integer 2 

FORTRAN ADDRESS of device name 
FORTRAN ADDRESS of error code 

Supporting Routines: FRET: . CPYI, , 

Subroutine Size: 16 octal locations of normally relocatable memory. 

Accumulators and carry are restored upon exit. 

The device name is an ASCII byte string. 

This routine issues the RDOS system call . DIR . 

The error code word will be set to one of the following states: 

- Indeterminate error. 

1 - No error occurred. 
3. . . n - RDOS system error code + 3 . 



Notes to User: 
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FSTAT 

Purpose : 
Calling Sequence: 



Supporting Routines: 
Subroutine Size: 
Notes to User: 



To set the attributes of a FORTRAN file (not a device). 

FCALL 

FSTAT 

Integer 3 

FORTRAN ADDRESS of the FORTRAN channel number . 

FORTRAN ADDRESS of the file attributes word 

FORTRAN ADDRESS of the error code 

FRET: . CFYL, . lOCA , 

27 octal locations of normally relocatable memory. 

Accumulators and carry are restored upon exit. 

This routine issues the RDOS system call . CHATR. Thus 
the bit settings for the file attributes word are as follows. 
Setting a bit to 1 sets the attribute for a file: 

bit - File is read -protected, 
bit 1 - File is attribute -protected, 
bit 2 - The file is a save file, 
bit 15 - The file is write -protected. 

The error code word will be set to one of the following states: 

- Indeterminate error. 

1 - No error occurred. 

3. . . n - RDOS system error code + 3. 



E-58 



Purpose : 
Calling Sequence : 



Supporting Routines: 
Subroutine Size: 
Notes to User: 



Real Time 
File and I/O 



To get the attributes of a FORTRAN file (not a device). 

FCALL 

GTATR 

Integer 3 

FORTRAN ADDRESS of the FORTRAN channel number 

FORTRAN ADDRESS to receive the attributes word 

FORTRAN ADDRESS of the error code 

FRET; . CFYL, . lOCA . 

27 octal locations of normally relocatable memory. 

Accumulators and carry are restored upon exit. 

This routine issues the RDOS system call . GTATR. Thus the 
bit settings for the file attributes word are as follows. A 
logical one in a bit position indicates the file has the given 
attribute. 

bit - File is read -protected. 

bit 1 - File is attribute -protected. 

bit 2 - The file is a save file. 

bit 12 - The file is organized contiguously. 

bit 13 - The file is organized randomly. 

bit 14 - The file is a permanent file. 

bit 15 - The file is write -protected. 

The error code word will be set to one of the following states: 

- Indeterminate error. 

1 - No error occurred. 

3. . .n - RDOS system error code + 3 . 



E-59 



Real Time 
File and I/O 



INIT 



Purpose: 
Calling Sequence: 



To initialize a directory device or a magnetic tape transport. 

FCALL 

INIT 

Integer 3 

FORTRAN ADDRESS of device name 

FORTRAN ADDRESS of initialization mode word 

FORTRAN ADDRESS of error code 



Supporting Routines: 
Subroutine Size: 
Notes to User: 



FRET; .CPYL . 

17 octal locations of normally relocatable memory. 

Accumulators and carry are restored upon exit. 

This routine issues the RDOS system call . INIT. Thus 
full, partial, and partial initialization with overlays is per- 
mitted. The mode word determines which kind of initialization 
will occur, and has the following definitions: 

-1 - full initialization 

- partial initialion 

1 - partial initialization with overlays 

Only full or partial initialization is permitted on magnetic 
tape transports. Full initialization causes a tape to be 
rewound and two end-of-file characters to be written. Partial 
initialization simply rewinds the tape and resets the tape file 
pointer to file zero. 

The device name is an ASCII string consisting of a valid string 
mnemonic for either a disk or magnetic tape transport. This 
string is terminated by a null byte. 

The error code word will be set to one of the following states: 

- Indeterminate error. 

1 - No error occurred. 

3. . .n - RDOS system error code + 3 . 
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OPEN 

Purpose : To open a file on a FORTRAN channel, optionally 

specifying a blocking factor for the file. 

Calling Sequence: FCALL 

OPEN 

Integer number of arguments, 4 or 5 
FORTRAN ADDRESS of FORTRAN channel number 
FORTRAN ADDRESS of file name 
FORTRAN ADDRESS of open type indicator 
FORTRAN ADDRESS of error code 
FORTRAN ADDRESS of optional blocking factor 

Supporting Routines: . DSI, FRET, lOPTR; . CPYL, . lOCAT 

Subroutine Size : 174 octal locations of normally relocatable memory. 

Notes to User: Accumulators and carry are restored upon exit. 

APPEND and OVOPN have alternate entry points in this 
routine. 

The file name is an ASCII byte string. 

The open type indicator must be one of the following codes: 

1 - Open for reading only by one or more users. 

2 - Open for reading/writing by one or more users. 

3 - Open for reading/writing by only one user. 

The error code word will be set to one of the following states: 

- Indeterminate error. 

1 - No error occurred. 

3. . . n - RDOS system error code + 3. 

The file blocking factor constant is an integer indicating the 
number of bytes/record. For random record I/O, the blocking 
factor should be 128. 

Up to 64 FORTRAN channel numbers are allowed, through 63. 
OPEN must be referenced by an . EXTN statement. 
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RDBLK 



Purpose: 



Calling Sequence: 



To read into an array a series of disk blocks from a file 
that is organized either randomly or contiguously. 

FCALL 

RDBLK 

Integer number of arguments, 5 or 6 

FORTRAN ADDRESS of FORTRAN channel number 

FORTRAN ADDRESS of the starting block number 

FORTRAN ADDRESS of the array to receive the block data 

FORTRAN ADDRESS of the number of blocks to be read 

FORTRAN ADDRESS of the error code 

FORTRAN ADDRESS of the optional block count 



Supporting Routines: FRET; . CFYL, . lOCAT 



Subroutine Size: 



Notes to User: 



72 octal locations of normally relocatable memory 

Accumulators and carry are restored upon exit. 

The starting block number is the logical (or relative) number 
of the block within the file which will be read. The first 
block in the file is logical block number 0, the second block 
is block number 1, etc. 

Since blocks are each 256 j^q words long, the array size must 
be n'''256 where n is the number of blocks to be read. No 
check is made to determine whether or not the size of the 
array is adequate. In the case where a premature end of file 
is detected, the optional block count argument will be set to 
the number of blocks actually read. 

The error code word will be set to one of the following states: 

- Indeterminate error 

1 - No error occurred. 

3. . . n - RDOS system error code +3 

WRBLK has an alternate entry point in this routine. 
RDBLK must be referenced by an , EXTN statement. 
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RENAM 
Purpose : 
Calling Sequence : 



To rename a disk file. 

FCALL 

RENAM 

Integer 3 

FORTRAN ADDRESS of old name 

FORTRAN ADDRESS of new name 

FORTRAN AnnRF.q.C: Af pyy-f^y nr^f^ 



Supporting Routines : FRET; . CPYL 

Subroutine Size : 20 octal locations of normally relocatable memory. 

Notes to User : Accumulators and carry are saved in the caller s TCB. 

Disk file names are byte strings of ASCII characters, 
packed left to right and terminated by either a carriage 
return, form feed, space, or null. Allowable ASCII 
characters in the file name are all upper case alphabetics, 
numerals, and $. A file name can contain any number of 
characters, but RDOS considers only the first 10 significant. 



The error code word will be set to one of the following states: 

- Indeterminate error. 

1 - No error occurred. 

3. . . n - RDOS system error code + 3. 

RENAM must be referenced by an .EXTN statement. 
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Beat Time 
File and I/O 



Purpose: 



Calling Sequence: 



To read a series of records from a file into an array. 

FCALL 

READR 

Integer number of arguments, 5 or 6 

FORTRAN ADDRESS of FORTRAN channel number 

FORTRAN ADDRESS of the starting record number 

FORTRAN ADDRESS of the array to rer.eive the records 

FORTRAN ADDRESS of the number of records to be read 

FORTRAN ADDRESS of the error code 

optional FORTRAN ADDRESS of the byte count. 

Supporting Routines: FRET, MPY, DVD; . CPYL, . lOCAT, . RTER 
Subroutine Size : 100 octal locations of normally relocatable memory. 



Notes to User: 



Accumulators and carry are restored upon exit. 

The starting record number is the logical (or relative) number 
of the record within the file which will be read. The first 
record within the file is logical record number 0, the second 
is logical record number 1, etc. 

The routine performs sequential reads by issuing RDOS system 
call . RDS . If a premature end-of-file is detected, the routine 
returns a byte count of aU bytes read during the call, and places 
this count in the FORTRAN ADDRESS of the byte count, if one is 
provided. 

No check is made to determine whether the size of the array is 
adequate or not. 

The error code word will be set to one of the following states: 

- Indeterminate error. 

1 - No error occurred 

3. . . n - RDOS system error code + 3. 

WRITR has an alternate entry point in this routine. 
READR must be referenced by an . EXTN statement. 



E-63 



Real Time 
File and I/O 



RESET 

Purpose : 
Calling Sequence: 

Supporting Routines: 
Subroutine Size: 
Notes to User: 



To close all currently open files and all FORTRAN channels. 

FCALL 
RESET 

FRET, IMIO; . lOCAT . 

27 octal locations of normally relocatable memory. 

Accumulators and carry are restored upon exit. 

This routine issues the RDOS system call . RESET. If this 
call is issued in a multitask environment, it must be issued 
only when no other task is performing any channel-related 
operations. 
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RLSE 



^^P"^^- To release a previously initialized device or directory from the system.l 

Calling Sequence : FCALL 

RLSE 
Integer 2 

FORTRAN ADDRESS of device or directory name I 

FORTRAN ADDRESS of error code 

Supporting Routines: FRET; . CPYL 

Subroutine Size: 16 octal locations of normally relocatable memory. 

Notes to User : The device name is an ASCII byte string terminated by a 

carriage return, null, form feed, or space. 

This routine issues the RDOS system call .RLSE . 

Original contents of accumulators and carry are saved 
in the caller's TCB. 

The error code word will be set to one of the following 
states: 

- Indeterminate error. 

1 - No error occurred. 
3. . . n - RDOS system error code + 3. 

RLSE must be referenced by an .EXTN statement. 
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WRBLK 



Purpose: 



Calling Sequence: 



To write a series of 256-word data blocks from an array into 
an RDOS disk file. The disk file must be organized either 
randomly or contiguously. 

FCALL 

WRBLK 

Integer number of arguments, 5 or 6 

FORTRAN ADDRESS of FORTRAN channel number 

FORTRAN ADDRESS of the starting block number 

FORTRAN ADDRESS of the array transmitting the block data 

FORTRAN ADDRESS of the number of blocks to be written 

FORTRAN ADDRESS of the error code 

FORTRAN ADDRESS of the optional block count 



Supporting Routines: FRET; . CFYL, . lOCAT 



j Subroutine Size: 
Notes to User: 



72 octal locations of normally relocatable memory. 

Accumulators and carry are restored upon exit. 

The starting block number is the logical (or relative) number 
of the block within the file to which writing will occur. The 
first block in the file is logical block number 0, the second 
block is block number 1, etc. 

Since disk blocks are each 256 jq words in length, the array 
size must be n*256 where n is the number of blocks to be 
written. No check is made to determine whether or not the 
size of the array is adequate. In the case where disk overflow 
occurs, the optional block count argument will be set to the 
number of blocks actually written. 

The error code word will be set to one of the following states: 

- Indeterminate error. 

1 - No error occurred. 

3. . . n - RDOS system error code + 3 

RDBLK has an alternate entry point in this routine. 
WRBLK must be referenced by an . EXTN statement. 



E-66 



WRITR 



Real Time 
File and I/O 



Purpose : To write a series of records from an array into a file. 

Calling Sequence : FCALL 

WRITR 

Integer number of arguments, 5 or 6 
FORTRAN ADDRESS of FORTRAN channel number 
FORTRAN ADDRESS of the starting record number 
FORTRAN ADDRESS of the array transmitting the records 
FORTRAN ADDRESS of the number of records to be written 
FORTRAN ADDRESS of the error code 
optional FORTRAN ADDRESS of the byte count 

Supporting Routines: FRET, MPY, DVD; . CPYL, . lOCAT, .RTER 



Subroutine Size: 



Notes to User: 



100 octal locations of normally relocatable memory. 

Accumulators and carry are restored upon exit. 

The starting record number is the logical (or relative) number 
of the block within the file to which writing will occur. The 
first record within the file is logical record number 0, the 
second record is logical record number 1, etc. 

The routine performs sequential writes by issuing the REXDS 
system call . WRS . No check is made to determine whether 
or not the size of the array is adequate. 

The error code word will be set to one of the following states: 

- Indeterminate error 

1 - No error occurred. 

3. . . n - RDOS system error code + 3 

If disk overflow occurs, REXDS system error code ERSPC 
will be given. 

READR has an alternate entry point in this routine. 

WRITR must be referenced by an . EXTN statement. 
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REAL TIME BIT MANIPULATION 

ICLR E-71 

ISET E-72 

ITEST E-73 
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Real Time 
i^it Manipu lotion 



ICLR 



Purpose : 
Calling Sequence: 



Supporting Routines: 
Subroutine Size: 
Notes to User: 



To clear a bit in a 16-bit word. 

FCALL 
ICLR 
Intee-er 2 

_ - - CJ - — — 

FORTRAN ADDRESS of word with bit position to be cleared 
FORTRAN ADDRESS of bit position indicator 

FRET; .CPYL, . RTER . 

50 octal locations of normally relocatable memory. 

ITEST and ISET have alternate entry points in this routine. 

Accumulators and carry are restored upon exit. 

This routine clears one bit in a word, the bit selected 
according to the bit position indicator which may be any 
Integer from to ISg. The following bit position indicators 
cause the following bit positions to be cleared: 



MSB 



15 14 13 12 11 lu 9 8 / b 4 3 2 1 U 



Bit Position Indicators 
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Real Time 
Bit Manipulation 



ISET 



Purpose : 
Calling Sequence : 



Supporting routines : 
Subroutine Size : 
Notes to User: 



To set a bit in a 16 -bit word. 

FCALL 

ISET 

Integer 2 

FORTRAN ADDRESS of word with bit position to be set 

FORTRAN ADDRESS of bit position indicator 

FRET; . CPYL, . RTER . 

50 octal locations of normally relocatable memory. 

Accumulators and carry are restored upon exit. 

This routine sets one bit position in a word. The bit position 
set is selected according to the bit position indicator which may 
be any integer from to ISg- The following bit position indi- 
cators cause the following bit positions to be set: 

Bit Position Indicator Bit Position Set 




1 



Least significant bit. 
Next least significant bit. 



15 Most significant bit. 

ITEST and ICLR have alternate entry points in this routine. 
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ITEST 



neai- -i^me 



Bit Manipulation 



Purpose : 
Calling Sequence : 



Supporting Routines: 
Subroutine Size: 
Notes to User: 



To examine a bit in a 16-bit word. 

FCALL 

ITEST 

Integer 3 

FORTRAN ADDRESS of result 

FORTRAN ADDRESS of word to be examined 

FORTRAN ADDRESS of bit position indicator 

FRET; . CPYL, . RTER . 

50 octal locations of normally relocatable memory. 

Accumulators and carry are restored upon exit. 

This routine performs a logical AND between the word to be 
examined and a bit mask, placing the result in the FORTRAN 
ADDRESS of the result. 

The bit position indicator is an integer from to 15o . This 
word is used as a power to which the base 2 is raised, creating 
a bit mask for the AND operation. Thus the following bit pos - 
ition indicators cause the following bit positions to be tested: 

Bit Position Indicator Bit Position Examined 




1 



Least significant bit. 
Next least significant bit. 



15 Most significant bit. 

ICLR and ISET have alternate entry points in this routine. 
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Writing a Real Time Program 

Since RT FORTRAN is a superset of non-real time FORTRAN, all information 
given in the DGC FORTRAN IV USER'S MANUAL, 093-000053, applies to the 
writing of an RT FORTRAN program. Additionally, the following points must 
be considered when writing an RT FORTRAN program. 

The first statement which must be found in the main RT FORTRAN program is the 
CHANTASK statement. This statement specifies both the maximum number of 
tasks which will be active at any one moment and the maximum number of RDOS 
channels which will be required. The CHANTASK statement is a specification 
statement which is non-executable. 

The format of the CHANTASK statement is as follows: 



CHANTASK i 



^I'^l 



where: J^, is an integer representing the number of RDOS channels which 
will be required by the program. 

J_2 is an integer representing the maximum number of active 
tasks at any one moment. 

Users are cautioned to be precise in specifying _i 2, since the use of a value larger 
than the maximum number of tasks which will be active at any one moment will 
cause the run time stack area to be segmented into more subdivisions than are re- 
quired at any one moment, with a consequently smaller size allocated for each 
segment. The use of a value smaller than this maximum value will cause a 
fatal run time error to occur. 

If the CHANTASK statement is omitted, a default value of 1 task and 8 RDOS channels _ 
will be presumed and TMIN (the RDOS minimum Task Scheduler) will be loaded. 

The EXTERNAL statement given in non-real time FORTRAN has been expanded 
for RT FORTRAN to include the names of the entry points of all tasks which will be 
initiated by the main program. Correspondingly, each Task subprogram must be 
declared by a TASK statement so that the Task module can become accessible by 
other programs. The format of the TASK statement is as follows: 



TASK taskname 
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Writing a Real Time Program (Continued) 



where: taskname is the name given to the Task subprogram. 

Since a task is a logically complete execution path through a program, parameters 
cannot be passed to tasks (although one-word messages can be passed to them as 
mentioned earlier). 

Since RT FORTRAN programs will be written in FORTRAN source code, users 
should be aware of the FORTRAN equivalence of the assembly language calling 
sequences given in this appendix to describe each routine. As stated in the 
introduction to this manual, the FORTRAN statement: 

CALL SUBROUTINE (parameter ,>..-, parameter ) 

is equivalent to the assembly language calling sequence: 

FCALL 
SUBROUTINE 
Integer n 



FORTRAN ADDRESS of parameter 

Thus, for example, a FORTRAN call to the PR I subroutine would be of the form: 

CALL PR I ( priority address ) 

The following two pages summarize the FORTRAN calls found only in the 
RDOS FORTRAN run time library. 
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Task Commands 



CALL ABORT (i.cl. number.error word) 

CALL AKILL (priority) 

CALL ARDY (priority) 

CALL ASUSP (priority) 

CALL CHNGE (i. d. number, new priority 
error word) 

CALL FTASK (name, error return, priority) 

CALL HOLD ( i. d. number, error word) 

CALL ITASK (name, i. d. number, priority, 
error word) 

CALL KILL 

CALL PRI (priority) 

CALL REC (i. d. number, error word) 

CALL RELSE (i. d. number, error word) 

CALL STTSK (i. d. number, task status 
word, error word) 

CALL SUSP 

CALL XMT (message address, message, error 
return) 

CALL XMTW (message address, message, 
error return) 



Clock Calendar Commands 



CALL DATE (date array, error word) 
CALL FDELY (number of RTC cycles) 

CALL FGTIM (hour, minute, second) 
CALL FSTIM (hour, minute, second) 
CALL TIME (time array, error word) 



Kill a task specified by i.-d. number. 

Ready a class of tasks. 

Suspend a class of tasks. 

Change the priority of a specific task. 

Create a task. 

Suspend a specific task. 

Create a task and assign it an i. d. number. 

Change a task's priority. 

Receive a task message. 

Ready a specific task. 

Obtain the status of a specific task. 

Suspend the calling task. 
Kill the calling task. 
Transmit a task message. 

Transmit a task message and wait for its 
receipt. 



Get the current date. 

Suspend the calling task for a specified 
interval of time. 

Get the current time. 

Set the system clock. 

Get the current time of day. 



Interrupt Commands 

CALL FINRV (device-code) 

CALL FINTD (device-code, user-dct) 

CALL IXMT (message address, message, 
error word) 

Swap and Overlay Commands 

CALL FBACK 

CALL FCHAN (save file name) 

CALL FOVLD (channel numter, overlay 

name, conditional load flag, 
error word) 

CALL FOVRL (overlay name, error word) 

CALL FQTASK (overlay name or dummy, task 
name, task queue array, error 
word, optional core-resident 
task flag) 

CALL FSWAP (save file name) 
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Remove a special user device from the svstem. 
Introduce a special user device to the system. 
Transmit a message from a user interrupt routine. 

Return to the next liigher program level. 

Perform a program chain. 

Load a user overlay in a multitask environment. 

Release an overlay area. 

Execute a task at periodic intervals. If the task 
is in an overlay, load the overlay so that the task 
can Ix; executed. 

Save the current program level and call in a 
program swap. 



■Swap jiKJ Overlay Commands : (Cont'd) 

CALL OVEXr (overlay name, return address) 

CALL OVEXX (overlay name, return address) 

CALL OVKIL (overlay name) 

CALL OVKIX (overlay name) 

CALL OVLOD (channel number, overlay name, 

conditional load flag, error word) 

CALL OVOPN (channel number, overlay name, 
error word) 
File and I/O Commands: 

CALL APPEND (channel number, file nam.e, 

open tyf)e indicator, error w'ord, 
optional blocking factor) 

CALL CFILW (file name, file type indicator, 
optional file size, error word) 

CALL CLOSE (channel number, error word) 

CALL DFILW (file name, optional error word) 

CALL DIR (device name, error word) 

CALL FSTAT (channel number, file attributes, 
error word) 

CALL GTATR (channel number, file attributes, 
error word) 

CALL INIT (device name, initialization mode 
word, error word) 

CALL OPEN (channel number, file name, open 
type indicator, error word, 
optional blocking factor) 

CALL RDBLK (channel number, starting block 

number, receiving array, number 
of blocks to be read, error word, 
optional block count) 

CALL READR (channel number, starting record 
number, receiving array, number 
of records to be read, error word, 
optional byte count) 

CALL RENAM (old name, new name, error word) 

CALL RESET 

CALL RLSE (device name, error word) 

CALL WRIJLK (channel number, starting block 
number, transmitting array, 
number of blocks to be written, 
error word, optional block count) 

CALL WRITR (channel number, starting record 

number, transmitting array, number 
of records to be written, error word, 
optional byte count) 
ISit Manipulation Commands: 

CALL ICLR (word, bit indicator) 

CALL ISET (word, bit indicator) 

ITEST (word to be examined, bit indicator) 



Release an overlay and return control to a 
specified address. 

Release an overlay and return control to a 
specified address. 

Kill a calling task and release its overlay. 

Kill a calling task and release its overlay. 

Load a user overlay in a single task environment. 

Open an overlay file. 



r\r\ar, o fil^ f^^ ,,„„ JJ 



Create a disk file. 



Delete a disk file. 

Change default directory or device. 

Set file attributes. 

To examine file attributes. 

To initialize a magnetic tape cassette, 
disk device or directory. 

Open a file on a FORTRAN channel. 



Read a series of disk blocks into an array. 



To read a series of file records into an array. 



Rename a disk file. 

Close all open files. 

Release a previously initialized device or directory. 

To write a series of data blocks from an array 
into a file. 



To write a series of records from an 
array into a file. 



Clear a bit in a 16-bit word. 
Set a bit in a 16-bit word. 
Examine a bit in a 16-bit word. 
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RT FORTRAN Program Example 

The following RT FORTRAN program example consists of three program modules, 
each separately compiled by means of three commands: 

FORT MAIN J 
FORT TIMPLT J 
FORT QUAD J 

After compilation, the binaries are loaded by means of the following command sequence: 

RLDR MAIN TIMfLT QUAD FMT. LB FORT 1. LB F0RT2.LB F0RT3.LB FORT4. LB >' 

(Note that the multitask library, FMT. LB, is not loaded in single task programs, ) The 
first module is the main program. Its functions are to type the title, ***REAL TIME 
QUADRATIC EQUATION SOLVER***, on the line printer and then to activate the two 
tasks whose logic is contained in the two remaining modules. 

The first task module, TIMPLT, prints a counter on the line printer, one count per 
line, 55 lines per page. The counter is incremented once each second, given a real 
time clock cycle of 100 milliseconds. 

The second task module, QUAD, accepts coefficients for a quadratic equation from 
the teletypewriter keyboard and prints these coefficients on the line printer at the 
moment the carriage return terminator is detected. If the roots of the equation are 
complex, a message is output, aherwise, the two real roots, Xi and X2, are also 
printed on the line printer. The program runs continuously until the user aborts it 
by means of a CTRL A break. 

Some sample output produced by this real time program follows the listing of the 
source program modules. 



E-78 



EXAMPLE SOURCE LISTING 



C MAIN PROGRAM 

CHAN TASK 3,3 

EXTERNAL QUAD, TIMPLT 

WRITE (12) " ***REAL TIME QUADRATIC EQUATION SOLVER***" 
C CREATE TIME PLOT TASK AT NEXT HIGHEST PRIORITY 

CALL FTASK (TIMPLT, $10, 1 ) 
C CREATE QUADRATIC SOLVER TASK AT LOWEST PRIORITY 

CALL FTASK (QUAD, $10,1) 

CALL KILL 
Id uoTTir r i a ^ tt mot cwrtunu rr-otc" 

END 



SET OUTPUT COUNTER TO 


EERO 


N = 




1 LINES = 




RESET LINE COUNTER TO 


ZERO, TOP 


2 LINES = LINES + 


1 


N = N + 1 




CALL FDELY (10) 




IF BOTTOM OF PAGE, GO 


TO TOP OF 


IF (LINES. EQ. 55) 


GO TO 10 



OF PAGE 



NEXT PAGE 
.55) GO TO 10 
WRITE (12) N 
GO TO 2 
10 WRITE (12) N 

WRITE ( 12,20) 
20 FORMAT (IHl) 

GO TO 1 
END 

TASK QUAD 
C GET QUADRATIC EQUATION COEFFICIENTS 

100 READ (11) A,B,C 
C F(X) = A*X**2 + B*X +C 
C IF COMPLEX ROOTS, OUTPUT COEFFICIENTS AND FLAG 

IF ((B**2-4*A*C).LT.0) GO TO 10 
C FIND THE REAL ROOTS 

XIR = (-B+(B**2-4*A*C)**. 5)/(2*A) 

X2R = (-B-(B**2-4*A*C)**.5)/(2*A) 
C OUTPUT THE COEFFICIENTS AND THE TWO REAL ROOTS 

WRITE (12,1) A, B, C,X1R,X2R 

1 FORMAT (1H0,"A= ■•,F10.4, " B= ", F10.4, " C= ", 
1 F10.4," Xl= ••,F10.4," X2= ",F10.4) 

60 TO 100 
10 WRITE (12,2) A, B, C 

2 FORMAT (1H0,"*** COMPLEX ROOTS***", "A= ",F10.4,"B= " 
1 ,F10.4,"C= ",F10.4) 

GO TO 100 
END 
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SAMPLE PROGRAM OUTPUT 



***R£AL TIME QUADRATIC uJUATION SOUVER*** 
1 
2 
3 

*** COMPLEX ROOTS***Aa 1, 000081 2,0000C« 3,0000 
5 
6 
7 

a 

9 
Ik) 
U 
12 

A* l.I»0ld0 dm 0,0000 Cb •16,0000 XlB 3.9999 )(2a -3.9999 

13 
U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
20 
27 

*** COnPUtX ROOTS***A* 12345. 6000B> 12345, 6000Ci 9876,5400 
26 
29 
3^ 
31 
32 
33 
34 
35 
3<j 
37 
3«J 
3$i 
4W 
41 
42 
43 
44 
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Preserving Reentrance During Interrupt Processing 

As noted earlier, when a special user interrupt occurs in a real time environ- 
ment, all task states are frozen. Thus no saving of task states is required when 
processing interrupts, since interrupt processing occurs apart from task Co>n- 
siderations. If, however, users wish to issue FORTRAN calls as part of their 
interrupt processing, it is imperative that certain stack variables be saved 
before these calls are made. Failure to preserve stack variables will disrupt 
management of the run time stack when the multitask environment becomes 
unfrozen. (Note that the system saves these variables when interrupts are 
generated by SYSGENed devices. ) 

When the multitask environment becomes frozen, page zero contains the 
variables for the stack segment of the FORTRAN task which was in control of 
the CPU at the time of the interrupt. Therefore if FORTRAN calls are to be issued 
from interrupt service routines, these routines must utilize the remaining 
free area in the frozen executing task's stack segment for run time variable 
storage. Although interrupts must be turned off while the interrupt processing 
logic is saving the segment variables, interrupts may be enabled as soon as 
these state variables have been preserved. 

The segment stack variables which must be saved by the interrupt processing 
routine are as follows: 

.SVO * 
.OVFL * 
FSP 
SP * 
NSP 

Additionally, a new QSP*value must be calculated which corresponds to the 
new FSP. 

Of the five variables which must be saved, . SVO and . OVFL may be saved in 
the new stack frame, SP may simply be incremented by one before the first 
FORTRAN call, and decremented by one after the last FORTRAN call in the 
interrupt servicing routine. NSP must be incremented by 6 and similarly decre- 
mented by 6 after the last FORTRAN call. A convenient location in which to store 
the old FSP is in the new frame's FOSP. The old FSP must be restored upon exit 
from the interrupt service routine, hi order to create the new frame (and new 
FSP), the following adjustment must be made to the old FSP: 

C(FSP') = C(FSP)+FLGT+2*FFEL 

A new value for QSP is calculated by adding PARF displacement FAC2 to its 
* See the FPZERO module. Chapter 9. 
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Preserving Reentrance During Interrupt Processing (Continued) 

associated FSP: 

C(QSP') = FAC2 + C(FSP') 

The old value for QSP must be restored when its associated FSP value is restored. 

The following code example adjusts FSP, stores the old FSP in the new frame's 
FOSP, and stores . SVO and .OVFL in this frame's two temporaries: 



LDA 


3, FSP ; 


GET THE FROZEN FSP 


MOV 


3,2 




LDA 


0, FLGT, 3 ; 


ADJUST NEW FSP 


LDA 


1, MAGIC 


ADJUST NEW FSP 


ADD 


0,1 


ADJUST NEW FSP 


ADD 


1,3 ; 


ADJUST NEW FSP 


STA 


3, FSP 


INSTALL THE NEW FSP 


LDA 


0,TWO 


RESERVE TWO TEMPORARIES FOR 


STA 


0, FLGT, 3 


AND . OVFL 


STA 


2, FOSP, 3 


SAVE THE FROZEN FSP 


LDA 


0, . SVO 


GET THE FROZEN . SVO 


STA 


0, SA VO, 3 


;SAVE IT 


LDA 


0, . OVFL 


;GET THE FROZEN . OVFL 


STA 


0, OVFL, 3 


;SAVE IT 



SVO 



MAGIC: 


2*FFEL 


TWO: 


2 


SAVO- 


FTSTR 


OVFL = 


SAVOfl 



;FFEL = 11 OCTAL, FOUND ON PARE 
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APPENDIX F 



The FORTRAN parameter tape, PARF, must be assembled with any user- 
RDOS FORTRAN parameters (090-001000-02) follows. 



F-1 
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;■ i 

i. *^ 

t- » 
^ 
1 ' 
1 "■ 
U' 
1 ■* 
11 
1 >- 

!7 
] = 

'«r? 
? < 

?'-S 

?7 
?=> 
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, OfeHKF 1HF CUKHf■^iT STACK POINTER LCICATION 

If- .OIjS'^ F?P« LSP 

, HEFTr- T^■l- HxFP STACK DISPLACEMENTS 
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' / 7 r- > 
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' / 7 - •■ 1 
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F»T' = 

KAC2» 

F H. 1 • 

F 4 C -■ = 
F C U V s 

F F A '^ « 
F P I P s 

F -S^ = 
FLGTs 

FFf L = 
FTST«e 

F7P« 



-17^ 
-171 
-17? 
-173 
-17^ 
-17P 
-176 
-177 
- ? t' f "• 

11 

-167 

USTP 
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> DOM'T MnDIFY THE DI SPLACEMFNTS 



FDR FRTN, FAC2, FACl, FACP 
ACl 
ACCI 
CARPY 

SMBFOI.'TINF ENTRY ADiDRESS 
ptRiMFTER LIST POINTER 
OLD STACK POT^iTFP 
STACK FRAME LF^fiTH 



I FIXED LENGTH OF THE STACK FRAME 
J TEMPORARY STORAGE STARTING DISKP. 

JFUHGE FACTOR FOR ZFROTH FORTRAM DTSPLAC 
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I F4T*L tWPCRS USf- •"CODE" ■*HERF 

; ,-; J V F ^ t< F I n i«^ 



THE "CODES" ARE 



V 7 

r 

!■ 1 

1 ■ 

1 1 

1 > 

J ' 

1 K 

1 - 
1? 



21 



^<= 

? 9 
y -> 

si i 

jt ft 
3'< 



M 1 



' J ] 

: I- ? 1 

1 1 1 

^ t .^ 1 

' !7i 

^ n 

■S7l 
" .' "1 1 

■ .< ? 1 
■'7 1 

.111 

^-M 

■ i5 1 
-:7i 

"Ml 

"-1 1 
-"'I 

-71 
71 1 
/^1 

7=-] 
'77) 

1 ,' 1 * 
1 U 
1 . ^! 
1.71 
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OuSk 

IJ S » 
DUSK 

r,uS« 
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f-' F r- V / ■ 
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FFIP;*! 
FFF^'F* 
FFf'Fs 
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FFl F-'« 
FFM-^'Si 
F F I .-I R « 
F F F t r. « 
r F S ' P s 
FFl ncs 

i-*-Ci.S = 

F h n i r. s 

f f- rH\ « 
t p t ' ? » 

F •' r IPs 
FFT'lHs 
FFP ■!,= 
t- - f SPt 
FM--IS 
F*- ksTs 

F '■' a T ? ' 
FFF .ps 
t t. n ./ 1 2 

F F A -■ f , 1 

F '^ "1 F l_ J 

F F '.,' K ! 



i , *Flj8 + f M"P 

2.*F0S+FNnF 

♦ E^.s♦E^ OP 



b.*FOS*F>nP 
f .*F0S + EKOP 
7.*eOS*EKOP 
6,*F0S*eN0P 
ii.*F()S + tN(iH 
1 1 .♦EOS + F-'OP 

n.*Eos*fcnnp 

^.♦fcOS + t'iCP 
1S.*E0S*F>'0P 

lfr.*EnS+ENCP 



17 

IP 
19 
?f 
21 
24 
2'r 



,*EOS*f 



EK^OP 

*f ns*EMOP 

*fcOS*Ef'OP 
*fcCS*FNDP 

. *Ens + Ef;OP 
,*FnS*fcMOP 




>^''.*FOS+EmOP 
.31 .♦E'^S+EMOP 

<c J.C r\C J.L. ^ r ft 
w r 4 - u 'J vi "^ I- ■ L* '- 

?.\ ♦EOS*£^OP 
34.*F0S*Ef0P 

.^b,*EDS*F'^CP 



> ALC NO-OP 

t ERROR CODE OFFSET 

; Fatal error bit 



STACK (IVFBFLOW 

CCMPUTEO GOTO ESROR 
I DIVISION RY ZERO 
I IMTEGER OVERFLOW 
t INTEGER POWER OVERFLOW 
» FLOATING POINT UNDERFLO'*! 
» FLOATING POINT OVERFLOK^ 
»TLLEGAL FORMAT SYNTAX 
;L0GIC CONVERSION ERROR 
INUMBER CONVERSION ERROR 
;I/n ERROR 
iFlKLi"! ERROR 

;SGiJARE ROOT OF NEGATIVE NUMBER 
«L0G OF NEGATIVE NUMBER 
JCHAN-JEL NOT OPEN 
JCHAN.MEL ALREADY OPFK. 
JN0 CHANNF.LS AVAILABLE 
»nOS FxCFPTIONAL "iTATUS 
t fcXPOMFNTIAL OVER/UNDERFLOW 
MRSAV REFERENCE OUT OF BOUNDS. 
(-VF HA.SE FOR FLOATU'G PQ-VER 
I'lU'iBER STACK OVERFLOW 
nAf.KSPACE NOT IMPLEFFKTED 
; ATTEMPT TO RESTORE CHANNEL 
; STATUS NOT PREVIOUSLV SAVED 
nUFUEO TASK ERROR 
»SEEK ON NONRANDOM FILE 

» ILLEGAL ARGUMENT 
JOELETF FRRORCFILE OPEN) 
JOVERLAY ERROR IN OVERLAY KILL 
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.MAIN 



DEFINE THE NUMBER STACK OISPUACEMENTS 



000001 

000002 

177772 
177773 
177774 

000006 
000007 

000010 

000006 



.OUSR 


OPlSi0 


.OUSR 


OPlX»i 


.OUSR 


0P1MB2 



^CURRENT STACK OPERAND 

^EXPONENT 

IMANTISSA 



SIGN 



.OUSR 0P2SI-6 

.OUSR 0P2XB-5 

•OUSR 0P2Ma*4 

.OUSR 0P3SP6 

.OUSR 0P3X-7 

•OUSR OP3M»10 

•OUSR REGU"6 



aAST OPERAND 

^EXPONENT 

^MANTISSA 



SIGN 



fNEXT OPERAND * SIGN 

^EXPONENT 

MANTISSA 

^REGISTER LENGTH 



I TASK EXTENTION PARAMETERS 

I N,B, THESE MUST CORRESPOND TO THE FPZERO ,BLK DEFINITIONS 
000000 ,DUSR TNOSPt . u u^ X iiiurxa 

TAFSP» I 

T8P» 2 

TOVFL« 3 

TSV0- 4 

TQSP» 5 

TPI.SP1 6 fMUST BE LAST DUE TO FLOATING POINT LOAD 



000001 .OUSR 

000002 .DUSR 

000003 .OUSR 

000004 ,DU8R 

000005 .OUSR 

000006 .OUSR 



000007 .DUSR TLEXNa TFLSP-TNOSP+1 



.EOT 



»ENO OF PARAMETERS 
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INDEX 



ABS 3-1 

ABSLT A-1 

absolute address .conversion to 1-19 

active chain E-2 

address conversion, FORTRAN to absolute 

addresses, FORTRAN 1-14 

AFSE 1-23, 1-24, B-1, 1-10 

AFRTN 12-1 

.AMA A-2 

AIMAG 5-20 

AINT 3-4 

AKILL E-13 

ALG A-1 

AL.G0 3-6 

,ALG10 A-1 

ALLOC 12-12 

allocatloir of stack 1-22 

ALOG A-1 

AMAX0 7-3 

3-7 

7-3 

3-7 

A-1 

A-1 
A-1 



1-19 



AMAXl 

AMIN|(( 

AMINl 

AMNX0 

AMNXl 

AMX0 

• AMXl A-1 

AMOD 3-8 

.AMOD A-1 

APPEND E-53,A-2 

ARDY E-16,A-2 

ARCTAN A-1 

ARGUM A-1 

argument 

passing from caller 1-21 

piassing to FORTRAN program from assembly level 

1-29 
array handUng l-17,D-lff 
array handling routines Chapter 13 
ARYSZ 13-3 

assembly language interfacing to FORTRAN 1 -26 
ASUSP E-16 
ATAN 3-9 
ATAN2 3-9 
ATN A-1 
ATN2 A-1 



BASC 2-3 

, BASC A-1 

BDASC 2-4 

.BDASC A-1 

bit manipulation routines E-69 

blank common 1 -23, 1 -24 

BRD A-1 

-5 



CABS 5 -3, A-1, A-2 


.CABS A-1 


CAD A-1 


CADI 5-4 


CAD2 6-3 


CADD A-1 


calling sequence 1-22, 1-25, 1-27, E-75 


call types E-3 


CATIN 11 -3, A-1 


CCEQl A-1 


CCEQ2 6-4 


CCOS 5-6,A-l 


CDIV A-1 


CDV A-1 


CDVl 5-7 


CDV2 6-5 


CEQl A-1 


CEQ2 A-1 


CEXP 5-8,A-l 


CEXPO A-1 


CFILW E-54,A-2 


CFT.n A-1 


CFST A-1 


CFSTl 5-9 


CFST2 6-6 


CGT 12-4,A-1 



BREAK 7 

BRK A-1 

BWR A-1 

byte 

addressing 1 
manipulation 
packing, pointer 
structure 1-4 



1-3, 1-26, Chapter 8 
1-3 



channel assignment table 1 -22 , 1 -23 

CHANTASK 7-4 

CHRST 11 -6, A-1 

CHSAV 11 -6, A-1 

CIN A-1 

CIX A-1 

CUP A-1 

CUPl 5-10 

CL1P2 5-10 

CLOAD 5-ll,A-l 

clock/calendar routines, real time E-25 

CLOG 5-12,A-l 

CLOSE E-55, A-2 

CLP A-1 

CMLl 5-13 

CML2 6-7 

CMPLX 7-6, A-1 

CMUL A-1 

CNEG A-1 

CNEGl 5-14 

CNEG2 5-14 

common 1-22,1-23,1-24 

COMP 8-3,A-l 

complex numbers 

data representation 1-3 

double precision 1-3, 1-6, 1-21 

packed 1 -3 

single precision 1 -3, 1 -6, 1-21 

unpacked 1-6 
CONJ A-1 
CONJG 5-15, A-1 
COS 3-11, A-1 
COSIN A-1 
COUT 1-7, A-1 



INDEX- 1 



CPU control, allocation of E-1 

CFWl A-1 

CPW2 A-1 

CPWR A-1 

CPWRl 5-16 

CPWR2 6-8 

CPYARG 10-3, A-1. 1-19. 1-21. 1-22 

CPYLS 10-3.1-19,1-21,1-22,1-27 

CRCXl 7-7.A-1 

CRCX2 7-8, A-1 

CRX2 A-1 

CS A-1 

CSBl 5-4 

CSB2 6-3 

CSIN 5-17,A-l 

CSQRT 5-18.A-1 

CSTOR A-1 

CSUB A-1 

CTRL A interrupt E-6 

CTRL C interrupt E -6 

CXFLl 7-9,A-l 

CXFL2 7-lO.A-l 



A-1 



DAIMA 


A-1 


DAIM.G 


6-16 


data representation 


byte 


'. 1-3 


integer 1-1.1-6 


single precision real 




packed 1 -2 




unpacked 1 -6 


double precision real 




packed 1-2 




unpacked 1-6 


single precision complex 




packed 1-3 




unpacked 1 -6 


double precision complex 




packed 1-3 




unpacked 1-6 


DATAN 


4-3 


DATAN2 


! 4-3 


DATN 


A-1 


DATN2 


A-1 


DATE 


E-27. A-2 


DBREAK 7-11. A-1 


DBRK . 


A-1 


.DCAB 


A-1 


DCABS 


6-9,A-l 


DCADD 


A-1 


DCCEQ 


A-1 


DCCOS 


6-lO.A-l 


DCDIV 


A-1 


DCDV 


A-1 


DCEXP 


6-11 


DCEXPO A-1 


DCFLO 


A-1 


DCFST 


A-1 


DCLOD 


6-12.A-1 



DCLOG A-1 
DCMPLX 7-12, 
DCMUL A-1 
DCOS 4-5 
DCPWR A-1 
DCRX2 A-1 
DCS A-1 
DCSIN 6-13,A-l 
DCSQR 6-14,A-l 
DCSTR A-1 
DCSUB A-1 
DDCLO 6-15, A-1 
DELETE ll-8,A-l,A-2 
DEXP 4-7.A-1 
DEXPC 4-7,A-l 
DEXPO A-1 
DFILW E-56,A-2 
DFL A-1 
DIM 3-12, A-1 
• DIM A-1 
DIPWR 7-13, A-1 
DIR E-57,A-2 

displacements 1 - 10, 1 -26 . 1 -2 7 
.DLG A-1 
DLOG 4-8, A-1 
DLCX310 4-8 
DMAXl 4-10, A-1 
4-10,A-l 
A-1 
A-1 
A-1 

4-12, A-1 
A-1 

dormant task E-2 
DOS 1-1,1-23.1-24 
DPLY2 A-1 
DPOLY A-1 
DPW A-1 

double precision complex routines Chapter 6 
double precision floating point (DPFL) 

data representation 1-3, 1-6 

normalization 1 -2 

packed 1 -2 



Chapter 4 



DMINl 

.DMNl 

DMNXl 

.DMXl 

DMOD 

.DMOD 



range 1 -2 


significance 1 -2 


unpacked 1-3,1-5,1-6 


zero 1-2 


double precision routines ( 


DPWER 4-13,A-l 


DREAL 6-16,A-l 


DSHIN A-1 


DSIGN 4-14.A-1 


DSIN 4-5 


DSINH 4-15,A-l 


DSN A-1 


DSNH A-1 


DSQRT 4-16,A-l 


DSYGN A-1 


DTAN 4-17 


DTANH 4-18,A-l 


DTN A-1 


DTNH A-1 


INDEX-2 



DVD (hardware) 2-13 
DVD (software) 2-11 
DXPC A-1 



.ENT 1-5,1-26 

entries in routines Appendix A 

environments E-1 

error 

messages 1-25 

arguments of routines E-6 
example 

of program Appendix C 

of real time program E-78 ff 
executing task E-2 
execution times 1-25, 1-26 
EXP 3^, A-i 
EXPC 3-14,A-l 
EXPO A-I 
.EXTD 1-26 
EXTERNAL E-74 
.EXTN 1-27 



FA A-1 

FAC0 1-9, 1-10, 1-18.1-19 
FACl 1-9,1-10,1-18 
FAC2 1-9,1-10,1-18 
FACAL A -2 
FADl 3-15 
FAD2 4-19 

FADDR (see FORTRAN addressing) 
FALOC 13-4,A-1,D-1, D-2,D-4 
FARG 10-5,1 -21, C-1 
FARGia 10-6,1-20,1-19 
A-1 



FARGU 

FB A-1 

FRACK 

FCALL 

FCEQl 

FCEQ2 

FCGTl 

FCGT2 

FCHAN 

FCLEl 

FCLE2 

FCLOS 

FCLTl 

FCLT2 

FCRY 

FD A-1 

FDELY E-28,A-2,E-3 

FDVl 3-19, 

FDV2 4-23 

FEAD 1-9,1-10,1-12,1-15 

FEQ A-1 

FERT0 A-1 

FERTl A-1 

FERTN A-1 



E-41,A-2 

10-7, 1-14, i-17, 1-19, 1-25, 1-27 
3-16 
4-20 
3-16 
4-20 

E-42, A-2 
3-16 
4-20 
11-9,A-1 
3-16 
4-20 
1-9,1-10,1-12,1-15 



real time E-51 



1-1,1-6 



FFIL A-1 
FFILE 11-10,A-1 
FFLDl 3-17 
FFLD2 4-21 
FFSTl 3-17 
FFST2 4-21 
FGE A-1 
FGT A-1 
FGTIM E-2 9 
file and I/O routines, 
FINIT 12 -5, A-1 
FINRV E-35,A-2 
FINTD E-36,A-2 
fixed point numbers 

data representation 

range I-l 

sIgDiflcance 1-1 

unpacked 1-6 

zero 1-1 
FL A-1 
FLE A-1 
FLT A-1 

FLGT 1-9, 1-10, 1-12, l-15,D-l,D-2,D-5 
FLX A-1 
FKILL A-2 
FLFXl 7-17 
FLFX2 7-19 
FUNK A-1 

FCALL 1-14,1-25,1-27 

FQRET 1-13 

FRCAL 1-14 

FRET 1-13,1-27 

• OFLO 13-5 
FLIP 7-14,A-l 
FLP A-1 
FLPja A-1 
FLSP 1-5 
.FLSP 9-3 
.FLSZ 1-5,1-23 
FM A-1 
FMLl 3-19 
FML2 4-23 
FNEGl 3-20 
FNEG2 4-24 
FNG A-1 
FOPEN 11-11, A-1 
FORTRAN 

addressing 1-12, 1-15 to 1-17, 1-19, 1-22,1-27 

linkage routines (see FLINK) 
FORTRAN stacks 

FSP 1-9,1-10,1-12,1-14 

header 1-8,1-13,1-14 

jumbo 1-17 

pointer 1-8 

structure 1-9 

temporaries 1-8,1-13,1-14 

mnemonic assignments 1-9 
FOSP 1-9,1-10,1-12,1-15,1-19,1-20 
FOVEN A-2 
FOVLD E-43,A-2 
FOVLY E-45, A-2 
FOVRL E-46vA-2 



INDEX-3 



FPEND A-2 

FPLP 1-9,1-10,1-12,1-15 
FPLY2 4-25 
FPRI A-2 
FPTRS 9-4 
FPW A-1 
FPWER 3-21. A-1 
FPZERO 9-5 
FQRET 10-9,1-13 
FQTASK E-47, A-2 
FQTCK A-2 
FQTRL A-2 
FRCAL 10-10,1-14 
FREAD 11-12, A-1 
FREDI 13-5,A-l,D-l,D-5 
FRET 10-12,1-13,1-27,1-19 
FRG0 A-1 
FRGl A-1 
FRGLD 10-13. A-1 
FRLDl 7-15 
FRLD2 7-15 
FRSTl 7-16 
FRST2 7-16 

FRTN 1-17, 1-18. 1-19, 1-9, 1-10. 1-21. 1-27 
FRWRIT A-1 

FS A-1 (Frame Size, see Stack Length Word) 
FSAV 10-14,1-13,1-14,1-18 
FSBl 3-15 
FSI32 4-19 
FSBR 13-6,A-1.D-1 
FSEEK 11-24, A-1 
FSG A-1 
FSGNl 3-22 
FSGN2 4-26 

FSP 1-8,1-9,1-10,1-12,1-14 to 1-19, 1-22 to 1-26 

E-3 
FSTAT E-58, A-2 
FSTIM E-30,A-2 
FSUB 13-6, A-1, D-1 
FSWAP E- 49, A-2 
FTASK E-18, A-2 
FTIME A-2 
FTMAX A-2 

FTSTR (TMP) 1-9, 1-10, 1-16, 1-18, 1-22, l-27,C-3, D-2 
FUNCTION 1-27 
FXFLl 7-17 
FXFL2 7-19 
FXMT A-2 



.1 10-16,E-9,A-l,A-2, 1-22 to 1-23, B-1 

simplified version B-lff, C-1 

multitask E-9,E-10 
I A-1 

TABS 2-5,A-l 
ICLR E-71, A-2 
IDIM 2 -6, A-2 
.IDIM A-2 
IDINT 7-21, A-1 
.IDINT A-2 
IFIX 7-22, A-2 
.IFIX A-2 
IMIO 11-3 
inactive chain E-2 
INIT E-60, A-2 
initialization 

real time routines E-7 

routines (non-real time) Chapter 10 

simplified or using . I Appendix B 
INT 7-23, A-1 
.INT A-2 

integer routines E-7 
integers (see fixed point numbers) 
interrupt 

processing reentrance during E-81 

requests E-2 

routines E-33 

user E-3 



input/output 1 -26 




input/output routines 


Chapter 11 


IPWER 2-7,A-l 




IPWR A-2 




ISET E -72, A-2 




.ISIG A-2 




ISIGN 2-8,A-l 




ITCB E-11 




ITEST E-73,A-2 





,IXMT E -37, A-2 



JSR calls 1-13, 1-20, 1-27 



KILL E-19, E-3 



GE 12-6, A-2 

trr — t2-^,:A^ 

GTATR E-59, A-2 



hardware multiply/divide 1-25 



LDl A-2 
LD2 A-2 
LD0 A-2, 1-12 

LDff A-^ 

LDBT 8-4 
LDRl A-2 
LDR2 A-2 
LDREG A-2 
LDSTN A-2 
LE 12 -6, A-2 
library structure 



1-1 



linkage and initialization routines Chapter 10 



INDEX-4 



linking loader, titles 1-23,1-25 
LNKPR A-2 
LOAD 8-5 
LQTSC A-2 
LT 12-6 



MAD 10-18, A-2, 1-20 
MADO 10-18, A-2, 1-20 
.MAIN 1-23,1-24 
MAX0 2-9, A-2 
MAXl 7-24, A-2 
. MEMI 1-23 
messages E-2 
MINI? 2 -9, A-2 

■""MINI T-24,"'A-2" ' 

miscellaneous FORTRAN support 1-26 

mixed mode routines 1-26, Chapter 7 

mnemonic assignments 1 - 8, 1 -9, 1 - 10, 1 -26 

MNMX0 A-2 

MNMXl A-2 

MOD 2 -10, A -2 

.MOD A-2 

MOVE 8-6, A-2 

MOVEF A-2 

MPY (software) 2-11 

MPY (hardware) 2-13 

MPY(J (software) 2-11 

MPY0 (hardware) 2-13 



multitask environment 
MTl A-1 
MVBC 8-7. A-2 
MVBT 8-8, A-2 
MVF 8-9, A-2 
MVZ 8-10, A-2 
.MNl A-2 
.MXl A-2 



E-1 



number stack 

default size 1-5, E-3 

FLSP 1-5 

frame size 1-5 

map 1-7 

maximum length 1-5 

NSF 1-5,1-7,1-24 

OPl,OP2,OP3 1-7 

size definition 1 -5, 1 -23, E -3 

.NDSP 1-5,1-7,1-24 



.OFLO 13-5 

OPPT^T T7_£1 

\JrlLt\ li-UX 

OVERF A-2 
overflow 1-10 
overlay routines E-39 
OVOPN E-50 



packed format 1-2,1-3 
parameter tape 

PARF 1-10, 1-26. Appendix F 

PARU 1-26 
PAUSE 12-11 
PEND A-2 
PRI E-22 

priorities E-2. E-3,E-22 
PLYl 3-23 

pointer displacement routines Chapter 9 
purpose, description 1-25 



QRSTR A-1 

QSP 1-10, 1-18. 1-24. E-3, E-81 

QTCNT A-2 



naming subroutines 1-25 

.NDSP 1-5, 1-7, 1-24, B-l,B-2, E-3 

NFTRN 12-7 

.NMAX 1-23 

normalization 1-2 

notes to user, description 1-27 

NPTRl A-2 

NPTR3 A-2 

NR A-2 

.NRl 7-25 

, NR2 7-26 

.NR3 7-27 

NREL entry points Appendix A 

• NREL 1-13,1-14,1-15,1-23 

NRPTR A-2 

NSP 1-5, 1-7. 1-24,8-1, B-2,E-3 



range of values 

fixed point 1-1 

SPFL number 1-2 

DPFL mimber 1-2 
RATN A-2 
RATNl 3-24 
RATN2 4-27 
RCAB A-2 
RCABS 5-19 
RDBLK E-62 
RDCABS 6-17 
RDFLD 11-25 
RDOS 1-1, Appendix E 
READL 11-27 
RE ADR E-63 
ready task E-2 
REAL 5-20 
.REAL A-2 

real numbers (see single or double precision floating 

point) 
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real time FORTRAN 

caUs E-75ff 

command summary E-75ff 

definition E-lff 

program example E-78ff 

routine descriptions E-5f£ 

writing programs using E-74ff 
REC E-20 

reentrance during interrupt processing E-81 
relocatable loader (see linking loader) 
repre sentations 

fixed point 1-2 

packed single precision 1 -2 

double precision 1 -3 

single precision complex 1-3 
RESET E-64 
returning results 1-22 
RIPWR 7-28 
RLSE E-65 
RSTR A-1 
RTE0 12-9 
RTER 12-9 
RTES 12-9 
RTN2 A -2 
run time library 

stack partitioning E - 3 , E -4 

structure 1-1 

use 1-25 to 1-27 
run time stack 1-10, 1-11, 1-24, E-3 



SAV0 A-1 

SAV2 A-1 

SAV3 A-1 

SDVD 2-14 

SHIN A-2 

SK3N 3-25 

SIN 3-26 

single precision complex routines Chapter 5 

singte precision floating point (SPFL) 

data representation 1-2 

execution time 1-25 

normalization 1 -3 

packed 1-2 

range 1-2 

routines Chapter 3 

significance 1-2 

unjKicked 1-2,1-5,1-6 

zero 1-2 
single task environment E-1 

SLW (see stack length word) 

SN A-1 

SNH A-2 

software multiply/divide 1-25 

SP stack l-4,l-23,l-24,B-l,B-2,E-3 

Special subscript bound specifier (SSBS) D-4 

SPFL 1-2,1-6,C-1 

SQR A-1 



SQRT 3-28 
STl A-2 
ST2 A-2 
stack 

SP 1-4, E-3 

number 1-5, E-3 

FORTRAN 1-9, E-3 

size of 1-10 

overflow 1-10 

allocation of 1 -22 

segment E-3 
stack length word (SLW. FS) 1-13, 1-14, 1-17, 1-27, 1-19 
stack linkage 1 -26 

stand-alone operating system (SOS) 1 -23, 1 -24- 
state save area E-3 
.ST|8 1-11 
STBT 8-4 
STOP 12-11,1-23 
storage 1-5,1-8 
STORE 8-5 
STREG A-2 

string, byte manipulation 1-26, Chapter 8 
SUBROUTINE 1-28 

subroutine linkage 1-12 to 1-22, 1-26,1-27 
subscript bound specifier D-lff 
summary table l-25,A-lff 
subroutine size and timing diagram 1-25 
supporting routines Chapter 12 

description 1-25 

nested 1-11 
SUSP E-21, E-3 
suspended task E-2 
SVVAR A-2 
SYGN A-2 

swapping and overlay routines, real time E-39 
.SYSI 1-23 



TAN 3-29 

TANGENT A-2 

TANH 3-30 

task E-lff 

task call Appendix E 

TASK statement E-37 

task control block (TCB) E-2 ff 

task schedulers 

TCBMON E-lff 

TMIN E-lff 

TMAX E-lff 
tasking routines E - 1 3 
THREAD 12-12 

three word specifer (TWS) D-2 to D-4 
TIME E-31 
,TITL 1-26 
title description 1-25 

TMP (FTSTR) 1-9, 1-10, 1-16, 1-18, 1-22, l-27,C-3,D-2 
TNH A-2 
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unpacked format 1-5 to 1-7 
user status table (UST) 1-24 
USP 1-10 
UST 1-24 



WRBLK E-66 

WRCH 11-29 

writing a real time program E-74 

WRITL 11-27 
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